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PREFACE 



This publication provides customer 
engineers and other technical personnel 
with information describing the internal 
organization and operation of the FORTRAN 
IV (G) compiler. It is part of an inte-- 
grated library of IBM System/360 Operating 
System Program Logic Manuals. Other publi- 
cations required for an understanding of 
the FORTRAN IV <G) compiler are: 

IBM System/360 Operating Sy s tem: 

Principles of Operation . Form A22-6821 

FORTRAN_IV_Language, Form C28-6515 

Introduction to Control Program Logic, 
Pr ogram Logic Manual , Form Y28-6605 

FORTRAN IV (G and H) Prog ramm er's Guid e. 
Form C28-6817 

Any reference to a Programmer's Guide 
in this publication applies to FORTRAN 
IV (G an d H ) P rogrammer's Guide . Form 
C28-6817. The FORTRAN IV (G) Program- 
mer's Guide . Form C28-6639, (to which 
references may exist in this publica- 
tion) has been replaced by the com- 
bined G and H Programmer's Guide. 

Although not required, the following 
publications are related to this publica- 
tion and should be consulted: 

IBM System/360 Operation System: 

Seque ntia l Access Met hods r Prog ram Lo gic 
Manual, ,, Form Y28-660U 



Concepts and Facilitie s. Form C28-6535 

Supervisor and Data Management Macro- 
Instructions . Form C28-66U7 

Linkage Editor. Prog r am Logic Manual , 
Form Y28-6610 

System Generation , Form C28-655U 

This publication consists of two 
sections: 

Section 1 is an introduction that 
describes the FORTRAN IV (G) compiler as a 
whole, including its relationship to the 
operating system. The major components of 
the compiler and relationships among them 
are also described in this section. 

Section 2 consists of a discussion of 
compiler operation. Each component of the 
compiler is described in sufficient detail 
to enable the reader to understand its 
operation, and to provide a frame of 
reference for the comments and coding supp- 
lied in the program listing. Common data 
such as tables, blocks, and work areas is 
discussed only to the extent required to 
understand the logic of each component. 
Flowcharts are included at the end of this 
section. 

Following Section 2, are appendixes that 
contain reference material. 

If more detailed information is 
required, the reader should see the com- 
ments, remarks, and coding in the FORTRAN 
IV (G) program listing. 
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SECTION 1: INTRODUCTION TO THE COMPILER 



This section contains general informa- 
tion describing the purpose of the FORTRAN 
IV (G) compiler, the minimum machine confi- 
guration required, the relationship of the 
compiler to the operating system, compiler 
design and implementation, and compiler 
output. The various rolls, 1 variables, 
registers, pointers, and drivers used by 
the compiler are also discussed. 



PURPOSE OF THE COMPILER 



The IBM System/360 Operating System 
FORTRAN IV (G) compiler is designed to 
accept programs written in the FORTRAN IV 
language as defined in the publication IBM 
System/360; FORTRAN IV Language . Form 
C28-6515. 

The compiler produces error messages for 
invalid statements, and, optionally, a 
listing of the source module, storage maps, 
and an object module acceptable to the 
System/360 Operating System linkage editor. 



Operating System. As a processing program, 
the compiler communicates with the control 
program for input/output and other ser- 
vices. A general description of the con- 
trol program is gi /en in the publication 
IBM System/360 Operating System; In tr oduc- 
tion to Control Program Logic, Program 
Logic Manual . 

A compilation, or a batch of compila- 
tions, is requested using the job statement 
(JOB), the execute statement (EXEC), and 
data definition statements (DD). Alterna- 
tively, cataloged procedures may be used. 
A discussion of FORTRAN IV compilation and 
the available cataloged procedures is given 
in the publication IBM System/360 Operating 
System; FORTRAN IV (G) Programmer' s Guide . 

The compiler receives control initially 
from the calling program (e.g. , job sche- 
duler or another program that CALLS, LINKs 
to, or ATTACHes the compiler). Once the 
compiler receives control, it uses the QSAM 
access method for all of its input/output 
operations. After compilation is com- 
pleted, control is returned to the calling 
program. 



MACHINE CONFIGURATION 



COMPILER DESIGN 



The minimum system configuration 
required for the use of the IBM System/360 
Operating System with the FORTRAN IV (G) 
compiler is as follows: 

• An IBM System/360 Model HO computer 
with a storage capacity of 128K bytes 
and a standard and floating-point 
instruction set. 

• A device for operator communication, 
such as an IBM 1052 Keyboard Printer. 



• At least one direct-access device 
vided for system residence. 



pro- 



The compiler will operate within a total 
of 80K bytes of main storage. This figure 
includes space for the compiler code, data 
management access routines, and sufficient 
working space to meet other storage 
requirements stated throughout this 
publication. 

Any additional storage available is used 
as additional roll storage. 



LIMITATIONS OF THE COMPILER 



COMPILER AND SYSTEM/360 OPERATING SYSTEM 



The FORTRAN IV (G) compiler is a proces- 
sing program of the IBM System/ 360 



*-MoBt of the tables used by the compiler 

are called rolls. (Further explanation of 

rolls is given in "Rolls and Roll 
Controls.") 



The System/360 Operating System FORTRAN 
IV (G) compiler and the object module it 
produces can be executed on all System/360 
models from Model "0 and above, under 
control of the operating system control 
program. All input information must be 
written in either BCD or EBCDIC representa- 
tion. The compiler is designed to process 
all properly written programs so that the 
object code produced by the compiler is 
compatible with the existing mathematical 
library subroutines. 
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If ten source read errors occur during 
the compilation, or if it is not possible 
to use SYSPRINT, the operation of the 
compiler is terminated. The operation of 
the compiler is also limited by the availa- 
bility of main storage space. The compila- 
tion is terminated if: 

• The roll storage area is exceeded 

• Any single roll exceeds 6UK bytes, 
thereby making it unaddressable 

• The WORK or EXIT roll exceeds its 
allocated storage 

Note : If any of these conditions occur 
during the first phase of the compilation, 
the statement currently being processed may 
be discarded; in this case, the compilation 
continues with the next statement. 



COMPILER IMPLEMENTATION 



The primary control and processing rou- 
tines (hereafter referred to as "POP rou- 
tines" or "compiler routines") of the com- 
piler are primarily written in machine- 
independent pseudo instructions called POP 
instructions. 

Interpretation of the pseudo instruc- 
tions is accomplished by routines written 
in the System/360 Operating System assembl- 
er language. These routines (hereafter 
referred to as "POP subroutines") are an 
integral part of the compiler and perform 
the operations specified by the POP ins- 
tructions, e.g., saving of backup informa- 
tion, maintaining data indicators, and gen- 
eral housekeeping. 

Control of the compiler operation is 
greatly affected by source language syntax 
rules during the first phase of the compil- 
er, Parse. During this phase, identifiers 
and explicit declarations encountered in 
parsing are placed in tables and a Polish 
notation form of the program is produced. 
(For further information on Polish nota- 
tion, see Appendix C, "Polish Notation 
Formats. ") 



The compiler quite frequently uses the 
method of recursion in parsing, analysis, 
and optimization. All optimizing and code 
generating routines, which appear in later 
phases, operate directly on the tables and 
Polish notation produced by Parse. 

The compiler is also designed so that 
reloading of the compiler is unnecessary in 
order to accomplish multiple compilations. 



POP LANGUAGE 



The FORTRAN IV (G) compiler is written 
in a combination of two languages: the 
System/360 Operating System assembler lan- 
guage, which is used where it is most 
efficient, and the POP language. 

The POP language is a mnemonic macro 
programming language whose instructions 
include functions that are frequently per- 
formed by a compiler. POP instructions are 
written for assembly by the System/ 360 
Operating System assembler, with the POP 
instructions defined as macros. Each POP 
instruction is assembled as a pair of 
address constants which together indicate 
an instruction code and an operand. A 
statement or instruction written in the POP 
language is called a POP. The POP instruc- 
tions are described in Appendix A. 



COMPILER ORGANIZATION 



The System/360 Operating System FORTRAN 
IV (G) compiler is composed of a control 
phase, Invocation, and five processing 
phases (see Figure 1) : Parse, Allocate, 
Unify, Gen, and Exit. The operating system 
names for these phases are, respectively, 
IEYFORT, IEYPAR, IEYALL, IEYUNF, IEYGEN, 
and IEYEXT. (The first level control and 
second level processing compiler routines 
used in each phase are shown in Figure 2. ) 
In addition, Move is a pre-assembled work 
area, IEYROL. 
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Figure 1. overall Operation of the Compiler 
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Control Phase: 



Invocation (IEYFORT) 



The Invocation phase (IEYFORT) is loaded 
upon invocation of the compiler and remains 
in core storage throughout compilation. It 
is entered initially from the calling pro- 
gram, from each module at the end of its 
processing, and from Exit after compilation 
is complete. 

At the initial entry, the Invocation 
phase initializes bits in IEYF0RT1 from the 
options specified by the programmer for the 
compilation, opens data sets, and fetches 
the modules IEYPAR, IEYALL, IEYUNF, IEYGEN, 
and IEYEXT via a series of LOAD macro 
instructions. These modules remain in core 
storage for a series of main program and 
subprogram compilations unless it is deter- 
mined that additional space required for 
tables is not available. When this occurs, 
modules that precede the active one are 
deleted, and compilation is resumed. If 
more space is required, modules that follow 
the currently active one are deleted. 

When a module completes processing, it 
returns to IEYFORT, which ensures the pre- 
sence of the next module and transfers to 
it. During initialization for a subpro- 
gram, IEYFORT ensures that all modules are 
loaded. 

The last entry is made from the Exit 
phase at the completion of a compilation. 
When the entry is made from Exit, the 
Invocation phase checks for multiple compi- 
lations. If another compilation is 
required, the compiler is reinitialized and 
the main storage space allocated for the 
expansion of rolls is assigned to the next 
compilation; otherwise, control is returned 
to the calling program. 



by Parse to perform the storage allocation 
for the variables defined in the source 
module. The addressing information thus 
produced is then left in main storage to be 
used by the next phase. 



The ESD cards for the object module 
itself, COMMON blocks and subprograms, and 
TXT cards for NAMELIST tables, literal 
constants and FORMAT statements afe pro- 
duced by Allocate on the SYSPUNCH and/or 
SYSLIN data sets. Error messages for 
COMMON and EQUIVALENCE statements, unclosed 
DO loops and undefined labels are produced 
on SYSPRINT; on the MAP option, maps of 
data storage are also produced. 



Phase 3: Unify (IEYUNF) 



The Unify phase optimizes the usage of 
general registers within DO loops by 
operating on roll data which describes 
array references. The optimization applies 
to references which include subscripts of 
the form ax+b, where a and b are positive 
constants and x is an active induction 
variable (that is, x is a DO-controlled 
variable and the reference occurs within 
the DO loop controlling it) , and where the 
array does not have any adjustable dimen- 
sions. The addressing portion of the 
object instruction for each such array 
reference is constructed to minimize the 
number of registers used for the reference 
and the number of registers which must be 
changed as each induction variable changes. 



Phase 1: Parse (IEYPAR) 



Parse accepts FORTRAN statements in card 
format from SYSIN and scans these to pro- 
duce error messages on the SYSPRINT data 
set, a source module listing (optional), 
and Polish notation for the program. The 
Polish notation is maintained on internal 
tables for use by subsequent phases. In 
addition. Parse produces the roll entries 
defining the symbols used in the source 
module. 



Phase U: Gen (IEYGEN) 



Gen uses the Polish notation produced by 
Parse and the memory allocation information 
produced by Allocate. From this informa- 
tion, Gen produces the code, prologues, and 
epilogues required for the object module. 
In order to produce the object code. Gen 
resolves labeled statement references 
(i.e., a branch target label) and subpro- 
gram entry references. 



Phase 2: Allocate (IEYALL) 



Allocate, which operates immediately 
after Parse, uses the roll entries produced 



The final output from Gen is a complete 
form of the machine language code which is 
internally maintained for writing by the 
Exit phase. 
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Phase 5; Exit (IEYEXT) PRINT data set in a format similar to that 

produced by an assembly program. 

Exit, which is the last processing phase 

of the rnmnilpr. nfri<^ii*»ge fho TXT cards for 

**~C~ — — — — J p- — -~ ■*— «- w ■*- w w«*<*. *«»* w«««. MW » w *. 

the remaining portion of the object module, R ol l (IEYROL) 
the RID cards (which contain the relocat- 
able information), and the END card. This 

output is placed optionally on the SYSLIN Roll contains static rolls and roll 

data set for linkage editor processing information always required for compiler 

and/or SYSPUNCH if a card deck has been operations. These are described under the 

requested. Additionally, a listing of the heading "Roils and Roil controls" later in 

generated code may be written on the SYS- this section. 
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Figure 2. Compiler Organization Chart 
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COMPILER STORAGE CONFIGURATION 



Figure 3 illustrates the relative posi- 
tions, but not the relative sizes of the 
component parts of the FORTRAN compiler as 
they exist in main storage. The component 
parts of each phase are described in Sec- 
tion 2. 



COMPILER OUTPUT 



The source module (s) to be compiled 
appear as input to the compiler on the 
SYSIN data set. The SYSLIN, SYSPRINT, and 
SYSPUNCH data sets are used (depending on 
the options specified by the user) to 
contain the output of the compilation. 



The output of the compiler is repre- 
sented in EBCDIC form and consists of any 
or all of the following: 



Object Module (linkage editor input) 



Roll Storage is Allocated from this 
Area 



Source Module listing 



IIEYPAR 


IEYPAR 


| Parse phase 

j Quotes and 
j messages 
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Highj 
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j Generate phase 
j Exit phase 





Figure 3. Compiler Storage configuration 



Object Module listing 



Storage maps 



Error messages (always produced) 



Relocatable card images for punching 

The overall data flow and the data sets 
used for compilation are illustrated in 
Figure 4. The type of output is determined 
by compile time parameters. 
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Figure 4. Compiler Output 
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OBJECT MODULE 



The configuration of the object module 
produced by the FORTRAN IV (G) compiler is 
shown in Figure 5. 



Entry point > 
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Base table 
Branch table 



Subprogram argument 
lists 
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Scalar variables 
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Literal constants 
(except those used 
in DATA and PAUSE 
statements) 



FORMAT statements 



Temporary storage 
and constants 

Program text 



Figure 5. Object Module Configuration 



of the object module. Among other func- 
tions, these instructions set general 
register 13 (see "Object Module General 
Register Usage") and perform various opera- 
tions, depending on whether the program is 
a main program or a subprogram and on 
whether it calls subprograms. (See "Code 
Produced for SUBROUTINE and FUNCTION 
Subprograms. " ) 



SAVE AREA? The save area, at maximum 72 
bytes long, is reserved for information 
saved by called subprograms. Figure 6 
shows an example of the use of this area in 
program Y, which is called by program X, 
and which calls program Z. 

The first byte of the fifth word in the 
save area (Save Area of Y ♦ 16) is set to 
all ones by program Z before it returns to 
program Y. Before the return is made, all 
general registers are restored to their 
program Y values. 



BASE TA BLE: The base table is a list of 
addresses from which the object module 
loads a general register prior to accessing 
data; the general register is then used as 
a base in the data referencing instruction. 

Because an interval of U096 bytes of 
storage can be referenced by means of the 
machine instruction D field, consecutive 
values representing a single control sec- 
tion in this table differ from each other 
by at least a 096 bytes. Only one base 
table entry is constructed for an array 
which exceeds 4096 bytes in length; hence, 
there is a possibility that an interval of 
more than 4096 bytes exists between conse- 
cutive values for a single control section 
in the table. 



Components of the Object Module 



The following paragraphs describe the 
components of the object module produced by 
the FORTRAN IV (6) compiler. 

HEADING : The object module heading 
includes all initializing instructions 
required prior to the execution of the body 



The addresses compiled into this table 
are all relative, and are modified by the 
linkage editor prior to object module 
execution. Those entries constructed for 
references to COMMON are modified by the 
beginning address of the appropriate COMMON 
block; those entries constructed for 
references to variables . and constants 
within the object module itself are modi- 
fied by the beginning address of the appro- 
priate object module. 
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Figure b. Example of Use of Save Area 



BRANCH TABLE : This table contains one 
full word entry for each b ranch ta r get label 
(a label referred to in a branch statement) 
and statement function in the source 
module. In addition, one entry occurs for 
each label produced by the compiler in 
generating the object module. These labels 
refer to return points in DO loops and to 
the statement following complete Logical IF 
statements, and are called ma de l abels. 



In the object module code, any branch is 
performed by loading general register 1H 
(see "Object Module General Register 
Usage") from this table, and using a BCR 
instruction. The values placed in this 
table by the compiler are relative ad- 
dresses. Each value is modified by the 
base address of the object module by the 
linkage editor. 



SUBPROGRAM ARGUMENT L ISTS: This portion Of 
the object module contains the addresses of 
the arguments for all subprograms called. 
In calling a subprogram, the object module 
uses general register 1 to transmit a 
location in this table. The subprogram 
then acquires the addresses of its argu- 
ments from that location and from as many 
subsequent locations as there are argu- 
ments. The sign bit of the word containing 
the address of the last argument for each 
subprogram is set to one. 



§!JBPROGRAM_ADDRESSES: This list contains 
one entry for each FUNCTION or SUBROUTINE 
subprogram referenced by the object module. 
The entry will hold the address of that 
subprogram when it is supplied by the 
linkage editor. The compiler reserves the 
correct amount, of space for the list, based 
on the number of subprograms referred to by 
the source module. 



EQUIVAL ENCE VARIABLES : This area of the 
object module contains unsubscripted 
variables and arrays, listed in EQUIVALENCE 
sets which do not refer to COMMON. 



SCALAR VARIABLES: All non-subscripted 

variables which are not in COMMON and are 
not members of EQUIVALENCE sets appear in 
this area of the object module. 

ARRAYS: All arrays which are not in 
COMMON, and are not members of EQUIVALENCE 
sets appear in this area of the object 
module. 



NAMELIST TABLES: 



For each NAMELIST name 



and DISPLAZ statement in the source module, 
a NAMELIST table is constructed by the 
compiler and placed in this area of the 
object module. Each table consists of one 
entry for each scalar variable or array 
listed following the NAMELIST name or in 
the DISPLAY statement, and begins with four 
words of the following form: 
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where the name field contains the NAMELIST 
name, right justified. For the DISPLAY 
statement, the name is DBGnn#, where nn is 
the number of the DISPLAY statement within 



Table entries for scalar variables have 
the following form: 



Byte| 




name field 



address field 



] type ] mode | 
-X- x X. 



not usei 



where : 

name field 

contains the name of the scalar vari- 
able, right justified. 

address field 

contains the relative address of the 
variable within the object module. 

type field 

contains zero to indicate a scalar 
variable. 

mode field 

contains the mode of the variable, 
coded as follows: 

2 = Logical, 1 byte 

3 = Logical, fullword 

4 = Integer, halfword 

5 = Integer, fullword 

6 = Real, double precision 

7 = Real, single precision 

8 = Complex, double precision 

9 = Complex, single precision 
A = Literal (not currently 

compiler- generated) 

NAMELIST table entries for arrays have 
the following form: 



Word 



Byte 



name field 



address field 



T T 

| no. | 

1 A i rr.onc I 1 onn*- K 

, --...w..w. , O.V....3 V... 

■ X X 



indica-j first dimension factor 
tor | field 



not j second dimension factor 



etc. 



not j third dimension factor 
used | field 

x 



etc; 



where: 

name field 

contains the name of the array, right 
justified. 

address field 

contains the relative address of the 
beginning of the array within the 
object module. 

mode field 

contains the mode of the art ay ele- 
ments, coded as for scalar variables, 
above. 

no. dimens. 

contains the number of dimensions in 
the array; this value may be 1-7. 

length field 

contains the length of the array ele- 
ment in bytes. 

indicator field 

is set to zero if the array has been 
defined to have variable dimensions; 
otherwise, it is set to nonzero. 

first dimension factor field 

contains the total size of the array 
in bytes. 

second dimension factor field 

contains the address of the second 
multiplier for the array (nl*L, where 
nl is the size of the first dimension 
in elements, and L is the number of 
bytes per element). 



1 
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third dimension factor field 

contains the address of the third 
multiplier for the array (nl*n2*L, 
where nl is the size of the first 
dimension in elements, n2 is the size 
of the second dimension, and L is the 
number of bytes per element). 

A final entry for each NAMELIST table is 
added after the last variable or array name 
to signify the end of that particular list. 
This entry is a fullword in length and 
contains all zeros. 

LIIi:RAL_CONSTANTS: This area contains a 
list of the literal constants use! in the 
source module, except for those specified 

in DATA and PAUSE statements. 

FORMAT STATEMENTS: The FORMAT statements 

specified in the source module are con- 
tained in this area of the object module. 
The statements are in an encoded form in 
the order of their appearance in the source 
module. (See "Appendix D: Code Produced 
by the Compiler.") The information contains 
all specifications of the statement but not 
the word FORMAT. 



TEMPORARY STORAGE AND CONSTANTS: 



This area 



always begins on a 
dary and contain 
the constants requ 
code and the spa 
temporary results 
all of the sourc 
sarily appear in t 
constants as possi 
data in the code 
may appear which a 
source module, but 
by the compiler. 



double precision boun- 
s, in no specific order, 
ired by the object module 
ce for the storage of 
during computations. Not 
e module constants neces- 
his area, since as many 
ble are used as immediate 
produced. Some constants 
re not present in the 

which have been produced 



PROGRAM TEXT: If the object module con- 
tains statement functions, the code for 
these statements begins the program text 
and is preceded by an instruction that 
branches around them to the first execut- 
able statement of the program. (See 
"Statement Functions" in Appendix D for 
further explanation of this code. ) Follow- 
ing the code for the statement functions is 
the code for the executable statements of 
the source module. 

Object Module General Re gi ster^ Usage 



The object module produced by the 
FORTRAN IV (G) compiler uses the System/360 
general registers in the following way: 

Register 0: Used as an accumulator. 

Register 1: Used as an accumulator and 
to hold the beginning address of the 
argument list in branches to sub- 
programs. 



Register 2: Used as an accumulator. 

Register 3: Used as an accumulator. 

Registers 4 through 7: Contain index 
values as required for references to 
array variables, where the subscripts 
are linear functions of DO variables and 
the array does not have variable 
dimensions. 

Registers 8 and 9: Contain index values 
as required for references to array 
variables, where the subscripts are of 
the form x+c, where x is a non De- 
controlled variable and c is a constant. 

Register 9: Contains index values as 
required for references to array 
variables where the subscripts are non- 
linear of the form I*J, wnere I and J 
are the variaoles. 

Registers 10 through 12: Contain base 
addresses loaded from the base table. 

Register 13: Contains the beginning 
address of the object module save area; 
this value is loaded at the beginning of 
program execution. Register 13 is also 
used for access to the base table, since 
the base table follows the save area in 
main storage. 

Register 14: Contains the return 
address for subprograms and holds the 
address of branch target instructions 
during the execution of branch 
instructions. 

Register 15: Contains the entry point 
address for subprograms as they are 
called by the object module. 



SOURCE MODULE LISTING 



The optional source module listing is a 
symbolic listing of the source module; it 
contains indications of errors encountered 
in the program during compilation. The 
error message resulting from an erroneous 
statement does not necessarily cause ter- 
mination of compiler processing nor the 
discarding of the statement. Recognizable 
portions of declaration statements are 
retained, and diagnosis always proceeds 
until the end of the program. 



OBJECT MODULE LISTING 



The optional object module listing uses 
the standard System/3 60 Operating System 
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assembler mnemonic operation codes and, 
where possible, refers to the symbolic 
variable names contained in the source 
module. Labels used in the source module 
are indicated at the appropriate places in 
the object code listing. 



STORAGE MAPS 



The optional storage map consists of six 
independent listings of storage informa- 
tion. Each listing specifies the names and 
locations of a particular class of vari- 
able. The listings are? 

• COMMON variables 



• The WORK roll exceeds the fixed storage 
space assigned to it. 

• The EXIT roll exceeds the fixed storage 
space assigned to it. 

• Any other roll, with the exception of 
the AFTER POLISH roll and the CODE 
roll, exceeds 6UK bytes of storage. In 
this case, the capacity of the ADDRESS 
field of a pointer to the roll is 
exceeded and- therefore , the informa- 
tion on the roll is unaddressable. The 
AFTER POLISH and CODE rolls are 
excepted, since pointers to these rolls 
are not required. 

The compilation terminates following the 
printing of either of these messages. 



• EQUIVALENCE variables 

• Scalar variables 

• Array variables 

• NAMELIST tables 



COMPILER DATA STRUCTURES 



The POP language is designed to manipul- 
ate certain well-defined data structures. 



• FORMAT statements 

A list of the subprograms called is also 
produced. 



ERROR MESSAGES 



Errors are indicated by listing the 
statement in its original form with the 
erroneous phrases or characters undermarked 
by the dollar sign character, followed by 
comments indicating the type of the error. 
This method is described in more detail in 
"Phase 1 of the Compiler: Parse (IEYPAR)." 



Common Error Messages 



Rolls, which are the tables primarily 
used by the compiler, are automatically 
handled by the POP instructions; that is, 
when information is moved to and from 
rolls, controls indicating the status of 
the rolls are automatically updated. 

Items (variables) with fixed structures 
are used to maintain control values for 
rolls, to hold input characters being pro- 
cessed, and to record Polish notation, etc. 
These item structures are also handled 
automatically by the POP instructions. 

The arrangement of the parts of the 
compiler is significant because of the 
extensive use of relative addressing in the 
compiler. General registers are us*»d to 
hold base addresses, to control some rolls, 
and to assist in the interpretation of the 
POP instructions. 



The message NO CORE AVAILABLE is pro- 
duced (through IEYFORT) by all phases of 
the compiler when the program being com- 
piled exhausts the main storage space 
available to the compiler. This message is 
produced only when the PRESS MEMORY routine 
cannot provide unused main storage space on 
request from the compiler. 

The message ROLL SIZE EXCEEDED is pro- 
duced (through the Invocation phase, 
IEYFORT) by all phases of the compiler when 
the size of any single roll or rolls is 
greater than permitted. The following cir- 
cumstances cause this message to be 
produced : 



ROLLS AND ROLL CONTROLS 



Most of the tables employed by the 
compiler are called rolls . This term de- 
scribes a table which at any point in time 
occupies only as much storage as is 
required for the maximum amount of informa- 
tion it has held during the present compi- 
lation (exceptions to this rule are noted 
later). Another distinctive feature of a 
roll is that it is used so that the last 
information placed on it is the first 
information retrieved . — it uses a "push 
up* logic. 
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With the exception of the WORK and EXIT 
rolls, the rolls of the compiler are main- 
tained in an area called the roll storage 
area. The rolls in this area are both 
named and numbered. While the references 
to rolls in this document and in the 
compiler comments are primarily by name, 
the names are converted to corresponding 
numbers at assembly time and the rolls are 
arranged in storage and referred to by 
number. 

If the roll storage area is considered 
to be one block of continuous storage, the 
rolls are placed in this area in ascending 
sequence by roll number; that is, roll 
begins at the base address of the roll 
storage area; rolls 1, 2, 3, etc., follow 
roll zero in sequence, with the roll whose 
number is largest terminating the roll 
storage area. 

Initially, all rolls except roll are 
empty and occupy no space; this is accomp- 
lished by having the beginning and end of 
all rolls located at the same place. (Roll 
0, the LIB roll, is a fixed-length roll 
which contains all of its data initially. ) 
When information is to be placed on a roll 
and no space is available due to a conflict 
with the next roll, rolls greater in number 
than the roll in question are moved down 
(to higher addresses) to make the space 
available. This is accomplished by physic- 
ally moving the information on the rolls a 
fixed number of storage locations and alt- 
ering the controls to indicate the change. 
Thus, roll never changes in size, loca- 
tion, or contents; all other rolls expand 
to higher addresses as required. When 
information is removed from a roll, the 
space which had been occupied by that 
information is left vacant; therefore, it 
is not necessary to move rolls for each 
addition of information. 

With the exception of the area occupied 
by roll 0, the roll storage area actually 
consists of any number of non-contiguous 
blocks of 4096 bytes of storage. The space 
required for roll is not part of one of 
these blocks. Additional blocks of storage 
are acquired by the compiler whenever cur- 
rent roll storage is exceeded. If the 
system is unable to fulfill a request for 
roll storage, the PRESS MEMORY routine is 
entered to find roll space that is no 
longer in use. If 32 or more bytes are 
found, the compilation continues. If fewer 
than 32 bytes are found, the compilation of 
the current program is terminated, the 
message NO CORE AVAILABLE is printed, and 
space is freed. If there are multiple 
programs, the next one is compiled. 

The following paragraphs describe the 
controls and statistics maintained by the 
compiler in order to control the storage 



allocation for rolls and the functioning of 
the "push up" logic. 



ROLL ADR Table 



The ROLL ADR table is a 1000-byte, table 
maintained in IEYROL. Each entry in this 
table holds the beginning address of a 
block of storage which has been assigned to 
the roll storage area. The first address 
in the table is always the beginning 
address of roll 0. The second address is 
that of the first UK-byte block of storage 
and, therefore, the beginning address of 
roll 1. Initially, the last address 
recorded on the table is the beginning 
address of a block which holds the CODE and 
AFTER PO LISH rolls, with the CODE roll 
beginning at the first location in the 
block. 

As information is recorded on rolls 
during the operation of the compiler, addi- 
tional storage space may eventually be 
required. Whenever storage is needed for a 
roll which precedes the CODE roll, an 
additional UK block is requested from the 
system and its address is inserted into the 
ROLL ADR table immediately before the entry 
describing the CODE roll base. This inser- 
tion requires that any entries describing 
the CODE and AFTER POLISH rolls be moved 
down in the ROLL ADR table. The informa- 
tion on all rolls following (greater in 
number than) the roll requiring the space 
is then moved down a fixed number of words. 
The roll which immediately precedes the 
CODE roll moves into the new block of 
storage. This movement of the rolls 
creates the desired space for the roll 
requiring it. The movement of rolls does 
not respect roll boundaries; that is, it is 
entirely possible that any roll or rolls 
may bridge two blocks of storage. 

When additional storage space is 
required for the AFTER POLISH roll, a block 
is requested from the system and its begin- 
ning address is added to the bottom of the 
ROLL ADR table. When the CODE roll 
requires more space, a new block is added 
in the same manner, the AFTER POLISH roll 
is moved down into the new block, and the 
vacated space is available to the CODE 
roll. 

The CODE and AFTER POLISH rolls are 
handled separately because the amount of 
information which can be expected to reside 
on them makes it impractical to move them 
frequently in order to satisfy storage 
requirements for all other rolls. The CODE 
roll is also somewhat unique in that it is 
assigned a large amount of space before it 
is used; that is, the AFTER POLISH roll 
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does not begin at the same location as does 
the CODE roll. 



BASE. BOTTOM, and TOP Tables 



In order to permit dynamic allocation as 
well as to permit the use of the "push up" 
logic, tables containing the variables 
BASE, BOTTOM, and TOP are maintained to 
record the current status of each of the 
rolls. These variables indicate addresses 
of rolls. Information stored on rolls is 
in units of fullwords; hence, these 
addresses are always multiples of four. 
The length of each of the tables is deter- 
mined by the number of rolls, and the roll 
number is an index to the appropriate word 
in each table for the roll. 



Each of the variables occupies a full- 
word and has the following configuration: 



1 1 
1 2 



1 2 
9 



■T T" 

| Entry number | 
I into the j 
| ROLL ADR | 
| Table | 

-X X. 



Displacement 
(12 bits) 



The entry number points to an entry in the 
ROLL ADR table and, hence, to the beginning 
address of a block of roll storage. The 
displacement is a byte count from the 
beginning ofthe indicated storage block to 
the location to which the variable (BASE, 



DAlTTriM 



>«- mnnl — ^£^~ . 



ui x wr » 



x cici a. 



It is significant to note that the 
displacement field in these variables occu- 
pies twelve bits. If the displacement 
field is increased beyond its maximum value 
(4095), the overflow increases the entry 
number into the ROLL ADR table; this is the 
desired result, since it simply causes the 
variable to point to the next entry in the 
table and effectively indicate the next 
location in the roll storage area, the 
beginning of the next block. 

The first status variable for each roll, 
BASE, indicates the beginning address of 
that roll, minus four. The second vari- 
able, BOTTOM, indicates the address of the 
most recently entered word on the roll. 

If the roll is completely empty, its 
BOTTOM is egual to its BASE; otherwise, 
BOTTOM always exceeds BASE by a multiple of 
four. Figure 7 illustrates a roll which 
contains information. 



4 bytes 

BASE (n) » r n 

[>-> | |< unused 

TOP (n) ) j j 

!■ — -K 

j. ^ - 

j. ^ 

j. ., 

I . | )> K bytes 
I • I 

I . I 
j. ^ 

BOTTOM (n) >j j/ 

L j/ 

Figure 7. Roll . Containing K Bytes of 
Information 



When information is to be added to a 
roll, it is stored at the address pointed 
to by BOTTOM, plus four, and BOTTOM is 
increased by four. When a word is to be 
retrieved from a roll, it is read from the 
address specified by BOTTOM, and, under 
most circumstances, BOTTOM is reduced by 
four, thus indicating that the word is no 
longer occupied by the roll. This altera- 
tion of the value of BOTTOM is termed 
pruning. If the information retrieved from 
a roll is to remain on the roll as well as 
at the destination, BOTTOM is not changed. 
This operation is indicated by the use of 
the word "keep" in the POP instructions 
that perform it. 

The current length (in bytes) of a roll 
is determined by subtracting its BASE from 
its BOTTOM. Note that this is true even 
though the entry number field appears in 
these variables, since each increase in 
entry number indicates 4096 bytes occupied 
by the roll. Thus, there is no limitation 
on the size of a roll from this source. 

For each roll, an additional status 
variable, called TOP , is maintained. TOP 
enables the program to protect a portion of 
the roll from destruction, while allowing 
the use of the roll as though it were 
empty. Protecting a roll in this way is 
called reserving the roll. The contents of 
TOP (always greater than or equal to the 
contents of BASE) indicate. a false BASE for 
the roll. The area between BASE and TOP, 
when TOP does not equal BASE, cannot be 
altered or removed from the roll. Ascend- 
ing locations from TOP constitute the new, 
empty roll. 



Like BASE, 
diately preced 
information ca 
automatically 
when the roll 
previous value 
BASE and is 
Storage of thi 
segment of the 



TOP points to the word imme- 
ing the first word into which 
n be stored. A value is 

stored in this unused word 
is reserved; the value is the 

of TOP, minus the value of 

called the res erve mark. 

s value permits more than one 

roll to be reserved. 
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A single roll (roll n), then, containing 
K bytes of information, (where K is always 
a multiple of four) and having no reserved 
status, has the following settings for its 
status variables: 

BOTTOM = BASE + K = TOP + K 

Figure 7 also illustrates this roll. If 
the same roll contains L bytes reserved and 
K additional bytes of information, the 
settings of its status variables are as 
follows : 

BOTTOM = TOP + K = BASE + L ♦ K + 4 

This roll is shown in Figure 8. Note that 
the relationships given above are valid 
because of the structure of the BASE, 
BOTTOM, and TOP variables. 



4 bytes 



BASE (n) > 



TOP (n) > 



BOTTOM (n) > 



< unused 



L bytes 



< previous 

TOP- BASE 



K bytes 



Figure 8. Roll Containing L Bytes of Re- 
served Information and K Bytes 
of New Information 



Special Rolls 



The WORK roll and the EXIT roll are 
special rolls in that they are not main- 
tained in the roll storage area, but rather 
appear in IEYPOL with a fixed amount of 
storage allocated to each. They are rolls 



in the sense that they employ the same push 
up logic which is used for the other rolls; 
however, they are not numbered, and their 
controls are, therefore, not maintained in 
the tables used for the other rolls. 

The WORK roll is used as a temporary 
storage area during the operations of the 
compiler. Because information is moved to 
and from the roll frequently it is handled 
separately from other rolls. 

The EXIT roll warrants special treatment 
because it is used frequently in maintain- 
ing exit and entrance addresses for compil- 
er routines. 

The bottom of the WORK roll is recorded 
in general register 4, WRKADR; general 
register 5, EXTADR, holds the address of 
the bottom of the EXIT roll. These values 
are absolute addresses rather than in the 
format of the BOTTOM variable recorded for 
other rolls. 

For a more detailed explanation of the 
WORK and EXIT rolls, see Appendix B "Rolls 
Used by the Compiler. " 



Cen tral Ite ms, Groups f and Group S tats 



CENTRAL ITEMS ; The items SYMBOL 1, SYMBOL 
2, SYMBOL 3, DATA 0, DATA 1, DATA 2, DATA 3 
and DATA 4, two bytes each in length, and 
DATA 5, eight bytes in length, contain 
variable names and constants. These items 
are called central due to the nature and 
frequency of their use. They occupy 
storage in the order listed, with DATA 1 
aligned to a doubleword boundary. 

In general, SYMBOL 1, 2, and 3 hold 
variable names; DATA 1 and 2 are used to 
hold real constants, DATA 3 and 4 to hold 
integer constants, DATA 1, 2, 3 and 4 to 
hold double precision and complex con- 
stants, and DATA 1, 2, 3, 4 and 5 to hold 
double-precision complex constants. 

GROUPS ; While the basic unit of informa- 
tion stored on rolls is a fullword, many 
rolls contain logically connected informa- 
tion which requires more than a singleword 
of storage. Such a collection of informa- 
tion is called a group and always occupies 
a multiple of four bytes. A word of a 
group of more than one word is sometimes 
called a rung of the group. 

Regardless of the size of the group on a 
given roll, the item BOTTOM for the roll 
always points to the last word on the roll. 
Figure 9 shows a roll with a group size of 
twelve. 



2U 



4 bytes 



1st group 



\l 



2nd group 



3rd group 



t (BASE (n) 
(TOP (n) 



■H 



< — BOTTOM (n) 



Figure 9. Roll With a Group Size of 
Twelve 



For some rolls, the size of the group is 
not fixed. In these cases a construct 
called a "plex" is used. The first word of 
each plex holds the number of words in the 
plex, exclusive of itself; the remainder 
holds the information needed in the group. 
(See Figure 10.) 



4 bytes 



BASE (n), 



■-> 



TOP 



(n) 






BOTTOM (n) 
Figure 10. 



< no. words 

in group 



group 

1 r»^ nrwiaf -i r\v\ 



plex 



plex 



Roll with Variable Group Size 



The assignment of roll storage does not 
respect group boundaries; thus, groups may 
be split between two blocks of roll 
storage. 



• GROUP STATS ; Since the size of the group 
varies from roll to roll, this charac- 
teristic of each roll must be tabulated in 
order to provide proper manipulation of the 
roll. In addition, the groups on a roll 
are frequently searched against the values 
held in the central items (SYMBOL 1, 2, 3, 
etc.,). Additional characteristics of the 
roll must be tabulated in order to provide 
for this function. Four variables tabu- 
lated in the group stats tables are 
reauired to maintain this information. 
(See Section 2 "IEYROL Module.") 



The first group stats table contains a 
1-word entry for each roll. The entry is 
divided into two ha If word values. The 
first of these is the displacement in bytes 
from SYMBOL 1 for a group search; that is, 
the number of bytes to the right of the 
beginning of SYMBOL 1 from which a compara- 
tive search with the group on the roll 
should begin. This value is zero for rolls 
which contain variable names (since these 
begin in SYMBOL 1), eight for rolls which 
contain real, double-precision, complex or 
double-precision complex constants (since 
these begin in DATA 1),. and twelve for 
rolls which contain integer constants. 

The second value in the first group 
stats table is also a displacement; the 
distance in bytes from the beginning of the 
group on the roll to the byte from which a 
comparative search with the central items 
should begin. 

The second group stats table also holds 
a 1-word entry for each roll; these entries 
are also divided into two halfword values. 
The first of these is the number of conse- 
cutive bytes to be used in a comparative 
search, and refers to both the group on the 
roll and the group in the central items 
with which it is being compared. 

The second item in the second tab* e is 
the size of the group on the rcil, in 
bytes. For rolls which hold pi exes, the 
value of this item is four. 

For example, the DP CONST rol^. , which is 
used to hold the double-precision constants 
required for the object module, has an 
8-byte group. The settings of the Group 
Stats for this roll are 8, 0, 8, and 8, 
respectively. The first 8 indicates that 
when this roll is searched in comparison 
with the central items, the search should 
begin eight bytes to the right of SYMBOL 1 
(at DATA 1). The indicates that there is 
no displacement in the group itself; that 
is, no information precedes the value to be 
compared in the group. The second 8 is the 
size of the value to be searched. The 
final 8 is the number of bytes per group on 
the roll. 
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The group stats for the ARRAY roll 
(which holds the names and dimension infor- 
mation of arrays) are 0, 0, 6, and 20. 
They indicate that the search begins at 
SYMBOL 1, that the search begins bytes to 
the right of the beginning of the group on 
the roll, that the number of bytes to be 
searched is 6, and that the group 6 size on 
the roll is 20 bytes. 



OTHER VARIAELES 



In addition to the central items, 
several other variables used in the compil- 
er perform functions which are significant 
to the understanding of the POP instruc- 
tions. These are described in the follow- 
ing paragraphs. 



Figures 11 and 12 show the two group 
stats tables containing the information on 
the DP CONST roll and the ARRAY roll 
discussed above. It should be noted that 
the information contained on these two 
tables is arranged according to roll num- 
bers. In other words, the group stats for 
roll 5 are in the sixth entry in the tables 
(starting with entry number 0). 



4 bytes 



DP CONST roll > 



ARRAY roll > 



"~T" 

8| 
_x. 



Figure 11. First Group Stats Table 



4 bytes 



DP CONST roll > 



ARRAY roll > 



— T" 

6| 
._x. 



20 



Figure 12. Second Group Stats Table 



Answer Box 



The variable ANSWER BOX, which is re- 
corded in the first byte of the first word 
of each EXIT roll group, is used to hold 
the true or false responses from POP 
instructions. The value "true" is repre- 
sented by a nonzero value in this variable, 
and "false" by zero. The value is checked 
by POP jump instructions. 



Mul tiple Precision Arithmetic 



Most of the arithmetic performed in the 
compiler is fullword arithmetic. When 
double-precision arithmetic is reguired, 
the variables MPAC 1 and MPAC 2, four bytes 
each in length, are used as a double- 
precision register. These variables are 
maintained in main storage. 



Scan Control 



Several variables are used in the 
character scanning performed by the first 
processing phase of the compiler, Parse. 
Their names, and terms associated with 
their values, are frequently used in 
describing the POP instructions. 

The variable CRRNT CHAR holds the source 
statement character which is currently 
being inspected; the variable is four bytes 
long. The position (scan arrow) of the 
current character within the input state- 
ment (its column number, where a continuous 
column count is maintained over each state- 
ment) is held in the low-order bit posi- 
tions of the fullword variable CRRNT CHAR 
CNT. 

Non-blank characters are called "active 
characters, " except when literal or IBM 
card code information is being scanned. 
The variable LAST CHAR CNT, which occupies 
one word of storage, holds the column 
number of the active character previous to 
the one in CRRNT CHAR. 
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Fxample : 



Column number: 1234567890 



tions which refer to quotes are assembled 
with address fields which are relative to 
this location. 



DO 50 I = 1, 4 
A(I) = B(D**2 
DO 50 J=l, 5 
50 C(J + 1) = MI) 



Explanation : 

In the processing of the source module 
which contains the above statements, state- 
ment 50 is currently being parsed. The 
current character from the input buffer is 
J. The settings of the scan control 
variables are shown in Figure 13. 



r 

| (EBCDIC) J 

i 

CRRNT CHAR 

r — 

I 9 

L 

CRRNT CHAR CNT 
(scan arrow) 

| 1 8 

i 

LAST CHAR CNT 
Figure 13. Scan Control Variables 



Figure 14 shows some of the quotes used 
by the compiler and how they are arranged 
in storage. 



QUOTE BASE | 00 
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b 


b 


b 


| 00 


07 


L 


O 


1 G 


I . 


C 


A 


1 L 


b 


b 


b 


| • 


| 00 


06 


F 





1 R 


M 


A 


T 



Flags 



Figure 14. Quotes Used in the Compiler 



Several flags are used in the compiler. 
These 1-word variables have two possible 
values: on, represented by nonzero, and 
off, represented by zero. The name of the 
flag indicates the significance of the "on" 
setting in all cases. 



Quotes 



Quotes are sequences of characters pre- 
ceded by a half word character count; they 
are compared with the input data to deter- 
mine a statement type during the Parse 
phase. These constants are grouped 
together at the end of phase 1. The 
location labeled QUOTE BASE is the begin- 
ning location of the first quote; instruc- 



Messages 



The messages used in the compiler, which 
are also grouped together at the end of 
Phase 1, are the error messages required by 
Parse for the source module listing. The 
first byte of each message holds the condi- 
tion code for the error described by the 
message. The second byte of the message is 
the number of bytes in the remainder of the 
message. The message follows this halfword 
of information. 

The location labeled MESSAGE BASE is the 
beginning location of the first message; 
instructions which refer to messages are 
assembled with address fields relative to 
this location. 
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COMPILER ARRANGEMENT AND GENERAL REGISTER 
USAGE 



Figure 15 shows the arrangement of the 
compiler in main storage with the Parse 
phase shown in detail. General registers 
that hold base locations within the compil- 
er are shown pointing to the locations they 
indicate. Note that the labels CBASE and 
PROGRAM BASE 2 appear in each phase of the 
compiler; the general registers CONSTR and 
PGB2 contain the locations of those labels 
in the operating phase. 



General register 2, PGB2, holds the 
beginning address of the glo bal ju mp table, 
a table containing the addresses of compil- 
er routines which are the targets of jump 
instructions. (See Appendix A for further 
discussion of this table and the way in 
which it is used. ) The global jump table 
appears in each phase of the compiler and 
is labeled PROGRAM BASE 2; thus, the value 
held in general register 2 is changed at 
the beginning of each phase of the 
compiler. 



r r 

Register J Label 
x 



| Contents 

.x 



Invocation Phase 



POPPGB > 



ROLLBR > 



CONSTR > 



PGB2- 



POP TABLE 
POP SETUP 



ROLL BASE 



CBASE 

PROGRAM BASE 2 

QUOTE BASE 
MESSAGE BASE 



POP Jump Table 



POP Machine Language Subroutines 



Data for POP Subroutines 



Roll Statistics (Bases, Tops, Bottoms) 



Group Stats (Displacements, Group Sizes) 



WORK Roll 



EXIT Roll 



ROLL ADR Table 



Roll Storage 



Roll Storage* 



Parse Data Items 



Parse Routines 



Parse Global Jump Table 



Parse Routines containing assembler 
language branch targets 



Quotes 
Messages 



PHASE 2: Allocate 



PHASE 3 



PHASE 4 



PHASE 5 



Unify 



Gen 



Exit 



low 
storage 



high 
storage 



♦Roll storage is allocated in UK-byte blocks, beginning from the higher end] 
of storage contiguous with Parse. Additional blocks are obtained, as j 
needed, from preceding (lower) UK-byte blocks of storage. | 

L J 

Figure 15. Compiler Arrangement with Registers 
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Compiler routines which contain assem- 
bler language instructions and are either 
branched to by other assembler language 
instructions or which themselves perform 
internal branches, follow the global jump 
table. General register 2 is used as a 
base register for references to both the 
global jump table and these routines. 
Figure 15 shows this register in Parse. 

General register 3, called POPADR in the 
compiler code, is used in the sequencing of 
the POP operations. It holds the address 
of the current POP, and is incremented by 2 
as each POP is interpreted. 

General register u, called WRKADR, holds 
the address of the current bottom of the 
WORK roll. 

General register 5, called EXTADR, holds 
the address of the current bottom of the 
EXIT roll. 



POINTERS 



Information defining a source module 
variable (its name, dimensions, e\.c, ) is 
recorded by the compiler when the name of 
the variable appears in an Explicit speci- 
fication or DIMENSION statement. For 
variables which are not explicitly defined, 
this information is recorded when the first 
use of the variable is encountered. All 
constants are recorded when they are first 
used in the source module. 

All references to a given variable or 
constant are indicated by a pointer to the 
location at which the information defining 
that variable or constant is stored. The 
use of the pointer eliminates redundancy 
and saves compiler space. 



The pointer is 
following format: 



a 1-word value in the 



General register 6, called POPXIT, holds 
the return location for POP subroutines. 
When POPs are being interpreted by POP 
SETUP, the return is to POP SETUP; when 
machine language instructions branch to the 
POPs, it is to the next instruction. 

General register 7, called ADDR, holds 
the address portion of the current POP 
instruction (eight bits); it is also used 
in the decoding of the operation code 
portion of POP instructions. 

General register 8, called POPPGB, holds 
the beginning address of the machine lan- 
guage code for the POP instructions and the 
POP jump table. Figure 15 shows this 
register, which is used as a base for 
references to these areas. 

General register 9, called CONSTR, holds 
the beginning address of the data referred 
to by the compiler routines. This area 
precedes the routines themselves, and is 
labeled CBASE, as indicated in Figure 15. 
This register is, therefore, used as a base 
register for references to data as well as 
for references to the routines in the 
compiler; its value is changed at the 
beginning of each phase. 



1 byte 1 byte 

T — 



TAG 



OPERATOR 



2 bytes 
ADDRESS 



where : 



TAG 



is a 1-byte item whose value is repre- 
sented in two parts: MODE, occupying 
the upper four bits, indicates whether 
the variable or constant is integer, 
real, complex or logical; SIZE, indi- 
cated in the lower four bits, speci- 
fies the length of the variable or 
constant (in bytes) minus one. (See 
Figure 15.1). 



r t 

J Value | MODE 



■T T 

j Value | SIZE 
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j Integer 





1 byte | 


J 1 


| Real 


1 


2 bytes | 


1 2 


| Complex 


3 


U bytes | 


1 3 


| Logical 


7 


8 bytes | 


1 4 


| Literal/ 
j Hexadecimal 


F 


16 bytes | 











Figure 1.5.1 TAG Field MODE and SIZE Values 



General register 10, ROLLBR, holds the 
beginning address of the roll area; that 
is, the beginning address of the base table 
(see Figure 15). The value in this 
register remains constant throughout the 
operation of the compiler. 

General register 11, RETURN, holds 
return addresses for the POP subroutines. 

The remaining general registers are used 
temporarily for various purposes in the 
compiler. 



OPERATOR 

is a 1-byte item which contains the 
roll number of the roll on which the 
group defining the constant or vari- 
able is stored. 

ADDRESS 

is a 2-byte item which holds the 
relative address (in bytes) of the 
group which contains the information 
for the constant or variable; the 
address is relative to the TOP of the 
roll. 
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The pointer contains all the information 
required to determine an absolute location 
in the roll storage area. The roll number 
(from the OPERATOR field) is first used as 
an index into the TOP table. The ADDRESS 
field of the pointer is then added to the 
TOP, and the result is handled as follows: 



For the purposes of object code genera- 
tion, the mode and size of the constant or 
variable is available to influence the type 
of operations which can be employed, e.g, 



integer or 
doubleword. 



floating, 



fullword, or 



1. Its entry number field (bits 12 
through 19) is used as an index into 
the ROLL ADR table. 



DRIVERS 



2. Its displacement field (bits 20 
through 31) is added to the base 
address found in the ROLL ADR table. 
The result of step 2 is the address 
indicated by the pointer. 



Example : Using a pointer whose OPERATOR 
field contains the value 2 and whose 
ADDRESS field contains the value 4, and the 
following tables: 



In the generation of Polish notation 
from the source language statements, 
"drivers" are also used. These "drivers" 
are values that are one word long and have 
the same format as the pointer. The two 
types of drivers used by the compiler are 
discussed in the following paragraphs. 



TOP 

r t t 1 

I I I I 

i — 4 — + ^ 

i i i 

2 | | 2 
I x — 
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ROLL ADR 

r 1 

I I 

h 4 

i I I 

2 | 1000 | 

|. 1 

I . I 



the location 10 2U is determined. Note that 
for larger values in the pointer and in 
TOP, the entry number field of TOP can be 
modified by the addition of ADDRESS. In 
this case the result of the addition holds 
2 and 24 in the entry number and displace- 
ment fields, respectively. 



Since relative addresses are recorded in 
pointers, it is not necessary to alter a 
pointer when the roll pointed to is moved. 
Note also that the relative address in the 
pointer may exceed U096 bytes with no 
complication of the addressing scheme. The 
only limitation on the size of a roll comes 
about because of the size of the ADDRESS 
field of the pointer: 16 bits permit 
values less than 6UK bytes to be 
represented. 



Operation Drivers 



One type of driver is the operation 
driver , which indicates arithmetic or log- 
ical operations to be performed. The 
fields of the driver are: 



TAG 



is a 1-byte item whose value is repre- 
sented in two parts: MODE, occupying 
the upper four bits, indicates the 
mode of the operation, e.g., integer, 
floating-point, complex or logical; 
SIZE, indicated in the lower four 
bits, specifies the length of the 
result of the operation (in bytes) 
minus one. 



OPERATOR 

is a 1-byte item containing a value 
which indicates the operation to be 
performed, e.g., addition, subtrac- 
tion, etc. The values for OPERATOR 
are larger than the number of any 
roll, and hence, also serve to distin- 
guish a driver from a pointer. 



ADDRESS 

is a 2-byte item containing a value 
which indicates the "forcing strength" 
of the operation specified by the 
driver; its values range from zero to 
ten. 



The forcing strengths associated with 
the operation drivers are given in Table 1. 
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Table 1. Internal Configuration of Opera- 
tion Drivers 
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*-The MODE and SIZE settings are placed in 

the driver when it is used. 
2 Indicates a function reference. 
3 Used to designate the beginning of an 

expression. 
•♦Means "end of expression" and is used 

for that purpose. 



Control Drivers 



The other type of driver used in the 
generation of Polish notation is called the 
control driver. It is used to indicate the 
type of the statement for which code is to 
be written. The control driver may also 
designate some other control function such 
as an I/O list, an array reference, or an 
error linkage. 



The fields of the control driver differ 
from those of the operation driver in that 
zero is contained in the TAG field, 255 in 
the OPERATOR field (the distinguishing mark 
for control drivers) , and a unique value in 
the ADDRESS field. The value in the 
ADDRESS field is an entry number into a 
table of branches to routines that process 
each statement type or control function; it 
is used in this way during the operations 
of Gen. The formats of the operation 
drivers and control drivers are given in 
Appendix E. 



Table 1 lists the operation drivers and 
the values contained in each field. The 
control drivers are given in Table 2. The 
ADDRESS field is the only field given 
because the TAG and OPERATOR fields are 
constant. All values are represented in 
hexadecimal. 
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Table 2* Internal Configuration of Con- 
trol Drivers (Part 1 of 2) 



Table 2. Internal Configuration of Con- 
trol Drivers (Part 2 of 2 ) 
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SECTION 2; COMPILER OPERAT I ON 



This section describes in detail the 
Invocation phase and the five processing 
phases of the compiler and their operation. 
The IEYROL module is also described. 



INVOCATION PHASE (IEYFORT) 



The Invocation phase is the compiler 
control phase and is the first and last 
phase of the compiler. (The logic of the 
phase is illustrated in Chart 00.) If the 
compiler is invoked in an EXEC statement, 
control is received from the operating 
system control program. However, control 
may be received from other programs through 
use of one of the system macro instruc- 
tions: CALL, LINK, or ATTACH. 

IEYFORT performs compiler initializa- 
tion, expansion of roll storage assignment, 
input/output request processing, and com- 
piler termination. The following para- 
graphs describe these operations in greater 
detail. 



IEYFORT, CHART 00 



IEYFORT is the basic control routine of 
the Invocation phase. Its operation is 
invoked by the operating system or by 
another program through either the CALL, 
LINK, or ATTACH macro instructions. The 
execution of IEYFORT includes scanning the 
specified compiler options, setting the 
ddnames for designated data sets, initia- 
lizing heading information, and acquiring 
time and date information from the system. 

IEYFORT sets pointers and indicators to 
the options, data sets, and heading infor- 
mation specified for use by the compiler. 
The options are given in 40 or fewer 
characters, and are preceded in storage by 
a binary count of the option information. 
This character count immediately precedes 
the first location which contains the 
option data. The options themselves are 
represented in EBCDIC. 

On entry to IEYFORT, general register 1 
contains the address of a group of three or 
fewer pointers. Pointer 1 of the group 
holds the beginning address of an area in 
storage that contains the execute options 
specified by the programmer (set in the 
OPTSCAN routine). 



Pointer 2 contains the address of the 
list of DD names to be used by the compiler 
(set in the DDNAMES routine). 

Pointer 3 contains the address of the 
heading information. Heading data may 
designate such information as the continua- 
tion of pages, and the titles of pages. 

If the FORTRAN compiler is invoked by 
the control program (i.e., called by the 
system), pointers 2 and 3 are not used. 
However, if the compiler is invoked by some 
other source, all pointers may be used. 
The latter condition is determined through 
an interrogation of the high order bit of a 
pointer. If this bit is set, the remaining 
pointers are nonexistent. Nevertheless, 
pointers 1 and 3 may exist while pointer 2 
is nonexistent; in this case, pointer 2 
contains all zeros. 

During the operation of IEYFORT, the 
SYSIN and SYSPRINT data sets are always 
opened through • use of the OPEN macro 
instruction. The SYSLIN and SYSPUNCH data 
sets are also opened depending upon the 
specification of the LOAD and DECK options. 
The block sizes of these data sets are set 
to 80, 120, 80 and 80, respectively. These 
data sets may be blocked or unblocked 
(RECFM=F, FB, or FBA) depending upon the 
DCB specification in the DD statements. 
IEYFORT concludes the compiler initializa- 
tion process with a branch to the first 
processing phase of the compiler, Parse 
(IEYPAR). 

From this point in the operation of the 
compiler, each processing phase calls the 
next phase to be executed. However, the 
Invocation phase is re-entered periodically 
when the compiler performs such input/ 
output operations as printing, punching, or 
reading. The last entry to the Invocation 
phase is at the completion of the compiler 
operation. 



IEYPRNT. C hart 00AU 



IEYPRNT is the routine that is called by 
the compiler when any request for printing 
is issued. The routine sets and checks the 
print controls such as setting the line 
count, advancing the line count, checking 
the lines used, and controlling the spacing 
before and after the printing of each line. 
These control items are set, checked, and 
inserted into the SYSPRINT control format, 
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and the parameter information and print 
addresses are initialized for SYSPRINT. 



If there is an error during the printing 
operation, EREXITPR sets the error code 
resulting from the print error. Any error 
occurring during an input/output operation 
results in a termination of compiler 
operation. 



PRNTHEAD, Chart 01A2 



PRNTMSG. Chart 03A1 

PRNTMSG is called when any type of 
message is to be printed. The print area 
is initialized with blanks and the origin 
and displacement controls are set. The 
message is printed in two segments; each 
segment is inserted into the print area 
after the complete message length is deter- 
mined and the length and origin of each 
segment has been calculated. Once the 
entire message has been inserted, the car- 
riage control for printing is set and 
control is transferred to the system to 
print the message. 



PRNTHEAD is called by IEYPRNT after it 
has been determined that the next print 
operation begins on a new page. The pro- 
gram name and the new page number placed 
into the heading format and any parameter 
information and origin addresses are 
inserted into the SYSPRINT format. If an 
optional heading is specified by the pro- 
grammer, it is inserted into the print line 
format. A PUT macro instruction is issued 
to print the designated line, and all print 
controls are advanced for the next print 
operation. 



IEYREAD. Chart 01A4 



IEYREAD is called by the compiler at the 
time that a read operation is indicated. 
It reads input in card format from SYSIN 
using the GET macro instruction. IEYREAD 
can handle concatenated data sets. 

If an error occurs during the read 
operation, the routine EREXITIN is called. 
This routine checks the error code 
generated and prints the appropriate error 

message. 



IEYPCH, Chart 2A3 



When a punch output operation is 
reguested by the compiler, control is tran- 
sferred to the IEYPCH routine. The LOAD 
and DECK options are checked to determine 
what output to perform. 

Any errors detected during output result 
in a transfer of control to the EREXITPC, 
for SYSPUNCH, or EREXITLN, for SYSLIN, 
routine. The routine sets a flag so that 
no further output is placed on the affected 
file. 



IEYMOR, Chart 01D1 



IEYMOR is called when additional roll 
storage area is needed for compiler opera- 
tion. This routine may be entered from any 
of the processing phases of the compiler. 
The GETMAIN macro instruction is issued by 
this routine and transfers control to the 
system for the allocation of one UK-byte 
block of contiguous storage. The system 
returns to IEYMOR with the absolute address 
of the beginning of the storage block in 
general register 1. Once the reguested 
storage space has been obtained, IEYMOR 
returns to the invoking phase. If the 
system is unable to allocate the reguested 
storage, inactive modules of the compiler 
are deleted. Those preceding the currently 
active module are deleted first; then those 
following it are deleted, if necessary. 
Should additional space be needed after all 
inactive modules are deleted, compiler 
operations are terminated. 

When IEYMOR returns to the invoking 
phase with the absolute address of the 
storage block in general register 1, the 
invoking phase then stores the contents of 
register 1 in the ROLL ADR table. 

The ROLL ADR table is used by the 
compiler to record the addresses of the 
different blocks of storage that have been 
allocated for additional roll capacity. 
The contents of the table are later used in 
IEYRETN for releasing of the same storage 
blocks. 



IEYNOCR 



IEYNOCR is called by PRESS MEMORY 
(IEYPAR) whenever it is unable to obtain at 
least 32 bytes of unused storage. IEYNOCR 
prints the message NO CORE AVAILABLE, 
branches to a subroutine that checks to see 
if there are any source language cards to 
be disregarded, and then exits to IEYRETN. 



3U 



IEYRETN. C hart 3A2 



OPTSCAN, Chart AA 



The compiler termination routine 
(IEYRETN) is invoked by Exit (IEYEXT) or by 
one of the input/output routines after the 
detection of an error. 



The routine first obtains the error 
condition code returned by the compiler and 
tests this value against any previous value 
received during the compilation. The com- 
piler communications area for the error 
code is set to the highest code received 
and a program name of "Main" is set in the 
event of multiple compilations. The rou- 
tine then checks general register 1 for the 
address of the ROLL ADR table. Each entry 
of the ROLL ADR table indicates the begin- 
ning of a UK-byte block of roll storage 
that must be released. A FREEMAIN macro 
instruction is issued for each block of 
storage indicated in the table until a zero 
entry is encountered (this denotes the end 
of the ROLL ADR table). 



OPTSCAN determines the existence of the 
parameters specifying the compiler options. 
If options are specified, the validity of 
eacn option is checked against the parame- 
ter table and the pointer to these options 
is set once the options have been vali- 
dated. The program name is noted depending 
upon the presence or absence of the NAME 
parameter. However. if these options are 
not specified, the first pointer of the 
group of three supplied to the compiler by 
the system contains zero. 



DDNAMES, Chart AB 



DDNAMES scans the entries made for the 
names of the data sets to be used by the 
compiler. The entries corresponding to 
SYSN, SYSIN, SYSPRIHT, and SYSPUNCH are 
checked; if an alternate name has been 
provided, it is inserted into the DCB area. 



The presence of more than one source 
module in the input stream is checked by 
interrogating the end-of-file indication 
and the first card following this notation. 
If another compilation is indicated, the 
line, card, and page count control items 
are reinitialized and all save registers 
used by the Invocation phase are restored. 
The number of diagnostic messages generated 
for the compilation is added to a total 
count for the multiple compilation and the 
diagnostic error count is reset to zero. 
The first processing phase of the compiler, 
Parse (IEYPAR), is called and the operation 
of the compiler proceeds as described in 
the previous paragraphs and those pertain- 
ing to the processing phases. 



HEADOPT, Chart AC 



HEADOPT determines the existence of the 
optional heading information. If such 
information exists, its length is deter- 
mined, it is centered for printing, and 
then is inserted into the Printmsg Table, 
with pointer 3 being set. 



HMEDAT L _Chart_AD 



the tiiut; 

and date information from the system and to 
insert the data into the heading line. 



If another compilation is not indicated, 
a check is made to determine if there was a 
multiple compilation. If there was a mul- 
tiple compilation, an indication of the 
total number of diagnostic messages 
generated for all of the compilations is 
printed. Also, routine IEYFINAL closes the 
data set files used by the compiler (by 
means of the CLOSE macro instruction). The 
terminal error condition code is obtained 
and set for the return to the invoking 
program, and all saved registers are 
restored before the return is made. 



Routine IEYFINAL also receives control 
from other compiler routines when an input/ 
output error is detected. 



OUTPUT FROM IEYFORT 



The following paragraphs describe the 
error messages produced during the opera- 
tion of the Invocation phase. These mes- 
sages denote the progress of the compila- 
tion, and denote the condition which 
results in the termination of the compiler. 



IEY028J. NO CORE AVAILABLE 
TERMINATED 



- COMPILATION 



The system was unable to provide a 
UK-byte block of additional roll 
storage and PRESS MEMORY was 
entered. It, too, was unable to 
obtain space. The condition code 
is 16. 
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IEY029I DECK OUTPUT DELETED 



Multiple Compilations 



The DECK option has been specified, 
and an error occurred during the 
process of punching the designated 
output* No error condition code is 
generated for this error. 



IEY030I LINK EDIT OUTPUT DELETED 



The LOAD option has been specified, 
and an error occurred during the 
process of generating the load 
module. The condition code is 16. 



IEY031I ROLL SIZE EXCEEDED 



The following message appears at 
the end of a multiple compilation 
to indicate the total number of 
errors that occurred. The message 
will not appear if the compiler i3 
terminated because of an error con- 
dition or if the compilation con- 
sisted of only one main or one 
subprogram. 



♦STATISTICS* 
STEF 



NO DIAGNOSTICS THIS 



Alio 



or 



:iCS* nnn DIAGNOSTICS THIS 



where: 



This message is produced when: (1) 
The WORK or EXIT roll has exceeded 
the storage capacity assigned; or 
(2) Another roll used by the com- 
piler has exceeded 64K bytes of 
storage, thus making it unaddress- 
able. (This condition applies to 
all rolls except the AFTER POLISH 
and CODE rolls. ) The condition 
code is 16. 



IEY032I NULL PROGRAM 



This message is produced when an 
end-of-data set is encountered on 
the input data set prior to any 
valid source statement. The condi- 
tion code is 0. 



IEY03m I/O ERROR (COMPILATION 

XXX • • • XXX 



TERMINATED] 



This message is produced when an 
input/output error is detected dur- 
ing compilation. If the error 
occurred on SYSPUNCH, compilation 
is continued and the COMPILATION 
TERMINATED portion of the message 
is not printed. The condition code 
is 8. If the error occurred on 
SYSIN, SYSPRINT, or SYSLIN, compi- 
lation is terminated. The condi- 
tion code is 16. xxx... xxx is the 
character string formatted by the 
SYNADAF macro instruction. For an 
interpretation of this information, 
see the publication IBM Sys tem/ 360 
Operating System; Supervi sor and 
Data Management Macro-Ins t ructions « 
Form C28-66U7. 

IEY035I UNABLE TO OPEN ddname 

This message is produced when the 
required ddname data definition 
card is missing or the ddname is 
misspelled. 



nnn is the total number of diagnostic 
messages for the multiple compilation 
expressed as a decimal integer. 



PHASE 1 OF THE COMPILER; PARSE (IEYPAR) 



The first processing phase of the 
FORTRAN IV <G> compiler, Parse, accepts 
FORTRAN statements in card format as input 
and translates them. Specification state- 
ments are translated to entries on rolls 
which define the symbols of the program. 
Active statements are translated to Polish 
notation. The Polish notation and roll 
entries produced by Parse are its primary 
o utp ut. In addition, Parse writes out all 
erroneous statements and the associated 
error messages. Parse produces a full 
source module listing when the SOURCE 
option is specified. 

The following description of Parse con- 
sists of two parts. ' The first part, "Flow 
of Phase 1," describes the overall logic of 
the phase by means of both narrative and 
flowcharts. 

The second part, "Output from Phase 1," 
describes the Polish notation produced by 
Parse. The construction of this output, 
from which subsequent phases produce object 
code, is the primary function performed by 
Parse. See Appendix C for the Polish 
format for each statement type. 

The source listing format and the error- 
messages produced by Parse are also 
discussed. 

The rolls manipulated by Parse are 
listed in Table 3 and are mentioned in the 
following description of the phase. At the 
first mention of a roll, its nature is 
briefly described. See Appendix B for a 
complete description of a format of a roll. 
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Table 3. Rolls Used by Parse 



I Roll 




Roll 




|No. 
! 


Roll Name 
Lib 


No. 

28 


Roll_Name | 
Loca 1 Sprog | 


j 1 


Source 


29 


Explicit j 


1 2 


Ind Var 


30 


Call Lbl j 


1 *■ 


Polish 


31 


Namelist Names j 


i 5 


Literal Const 


32 


Namelist Items j 


1 6 


Hex Const 


33 


Array Dimension | 


1 7 


Global 


35 


Temp Data Name j 


i p 


Fx Const 


36 


Tomr» t>/-»1 t ch 1 


i 9 


Fl Const 


37 


Equivalence j 


1 io 


Dp Const 


38 


Used Lib J 


1 11 


Complex Const 




Function j 


i 12 


Dp Complex 


39 


Common Data j 




Const 


40 


Common Name j 


1 1 


Temp Name 


fl 1 


Implicit | 


I I 4 


Temp 


42 


Equivalence j 


i 1 4 


Error Temp 




Offset j 


i 15 


DO Loops Open 


43 


Lbl j 


1 16 


Error Message 


uu 


Scalar j 


1 17 


Error Char 


45 


Data Var j 


j 18 


Init 


46 


Literal Temp | 


1 19 


Xtend Lbl 


53 


Format j 


| 20 


Xtend Target 


54 


Script j 




Lbl 


55 


Loop Data j 


i 22 
| 2*4 


Array 
Entry Names 


56 
59 


Program Script J 
AT j 


1 25 


Global Dmy 


60 


Subchk | 


1 26 


Error 


63 


After Polish j 


1 27 


Local Dmy 

_ j 


L__ 
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FLOW OF PHASE 1, CHART 04 



START COMPILER initializes the operation 
of Parse, setting flags from tne user 
options, reading and writing out (on 
option) any initial comment cards in the 
source module, and leaving the first card 
of the first statement in an input area. 
This routine concludes with the transfer of 



STATEMENT PROCESS (G0631) controls the 
operation of Parse. The first routine 
called by STATEMENT PROCESS is PRINT AND 
HEAD SOURCE. On return from that routine, 
the previous source statement and its error 
rressages have been written out (as defined 
by user options), and the statement to be 
processed (including any comment cards) 
plus the first card of the next statement 

will be on the SOUR CE r oll . (This roll 

holds the source statements, one character 
per byte.) STATEMENT PROCESS . then calls 
STA INIT to initialize for the processing 
of the statement and LBL FIELD XLATE to 
process the label field of the statement. 

On return from LBL FIELD XLATE, if an 
error has been detected in the label field 
or in column 6, STATEMENT PROCESS restarts. 
Otherwise, STA XLATE and STA FINAL are 
called to complete the translation of the 
source statement. On return from STA 
FINAL, if the last statement of the source 
module has not been scanned, STATEMENT 
PROCESS restarts. 



After the Polish notation for the STOP 
or RETURN has been constructed on the 
POLISH roll, the Polish notation for the 
END statement is then constructed. 

Parse keeps track of all inner DO loops 
that may possibly have an extended range. 
Parse tags the LABEL roll entries for those 
labels within the DO loops that are poss- 
ible re-entry points from an extended 
range. These tags indicate the points at 
which general registers 4 through 7 must oe 
restored. The appropriate LOOP DATA roll 
groups are also tagged to indicate to the 
Gen phase which of the inner DO loops may 
possibly have an extended range. Gen then 
produces object code to save registers 4 
through 7. 

After processing the last statement of 
the source module, a pointer to the LOOP 
DATA roll is placed on the SCRI PT roll, the 
IND VAR roll is released, and, if the 
source module was a .main program, the 
routine REGISTER IBCOM (G0707) is called to 
record IBCOM as a required - subprogram. For 
all source modules, the information 
required for Allocate is then moved to the 
appropriate area, and the Parse phase is 
terminated. 



PRINT and READ SOURCE, Chart BA 



PRINT AND READ SOURCE (G0837) serves 
three functions: 



When the last card of a source module 
has been scanned, STATEMENT PROCESS deter- 
mines whether it was an END card: if not. 
it writes a message. The routine then sets 
a flag to indicate that no further card 
images should be read, and calls PRINT AND 
READ SOURCE to write out the last statement 
for the source listing (depending on wheth- 
er the SOURCE option was specified or was 
indicated as the default condition at sys- 
tem generation time). 

When no END card appears, two tests are 
made: (1) If the last statement was an 
Arithmetic IF statement, the Polish nota- 
tion must be moved to the AFTER PO LISH 

roll; (2) If the last statement was of a 
type which does not continue in sequence to 
the next statement (e.g., GO TO, RETURN), 
no code is required to terminate the object 
module, and the Polish notation for an END 
statement is constructed on the POLISH 
roll . If the NEXT. STA LBL FLAG is off, 
indicating that the last statement was not 
of this type, the Polish notation for a 
STOP or RETURN statement is constructed on 
the POLISH roll, depending on whether the 
source module is a main program or a 
subprogram. 



1. It writes out the previous source 
statement and its error messages as 
indicated by user options, 

2. It reads the new source statement to 
be processed, including any comment 
cards, as well as the first card of 
the statement following the one to be 
processed. 

3. It performs an initial classification 
of the statement to be processed. 

The statement to be written out is found 
on the SOURCE roll. One line at a time is 
removed from this roll and placed in a 
120-byte output area from which it is 
written out. The new statement being read 
into the SOURCE roll is placed in an 
80-byte input area and replaces the state- 
ment being written out as space on the 
SOURCE roll becomes available. Any blank 
card images in the source module are elimi- 
nated before they reach the SOURCE roll. 
Comment cards are placed on the SOURCE roll 
exactly as they appear in the source 
module. The last card image placed on the 
SOURCE roll is the first card of the source 
statement following the one about to be 
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processed; therefore, any comment cards 
that appear between two statements are 
processed with the statement which precedes 
them. When an END car3 has been read, no 
further reading is performed. 

The initial classification of the state- 
ment that occurs during the operation of 
this routine determines, at most, two 
characteristics about the statement to be 
processed: (1) If it is a statement of the 
assignment type, i.e., either an arithmetic 
or logical assignment statement or a state- 
ment function, or (2) If it is a Logical IF 
statement, whether the statement "S" (the 
consequence of the Logical IF) is an 
assignment statement. Two flags are set to 
indicate the results of this classification 
for later routines. 



ing and returns to STATEMENT PROCESS 
(through SYNTAX FAIL) with the ANSWER BOX 
set to false. 

Pointers to all labels within DO loops 
are placed on the XTEND LBL roll . Labels 
that are jump targets (other than jumps 
within the DO loop) are tagged to indicate 
to Gen at which points to restore general 
registers 4 through 7. 

If the statement being processed is the 
statement following an Arithmetic IF state- 
ment, LBL FIELD XLATE moves the Polish 
notation for the Arithmetic IF statement to 
the AFTER POLISH roll after adding a point- 
er to the label of the present statement to 
it. 



At the conclusion of this routine, all 
of the previous source statements and their 
errors have been removed from the SOURCE 
roll and are written out. In addition, all 
of the statements to be processed (up to 
and including the first card of the state- 
ment following it) have been placed on the 
SOURCE roll. 



STA INIT, Chart BB 



STA INIT (G0632) initializes for the 
Parse processing of a source statement. It 
sets the CRRNT CHAR CNT and the LAST CHAR 
CNT to 1, and places the character from 
column 1 of the source card in the variable 
CRRNT CHAR. 

It then determines, from a count made 
during input of the statement, the number 
of card images in the statement; multiply- 
ing this value by 80, STA INIT sets up a 
variable (LAST SOURCE CHAR) to indicate the 
character number of the last character in 
the statement. 

The routine finally releases the TEMP 
N AME roll and sets several flags and 
variables to constant initial values before 
returning to STATEMENT PROCESS. 



LBL FIELD XLATE, Chart BC 



STA XL ATE, Chart BD 



Under the control of STA XLATE (GO 63b) 
the source module statement on the SOURCE 
roll is processed and the Polish notation 
for that statement is produced on the 
POLISH roll, which holds Polish notation 
for source statements, one statement at a 
time. Errors occurring in the statement 
are recorded for writing on the source 
module listing. 



The addresses of the bottoms of the WORK 
and EXIT rolls are saved. Then, if the 
statement is of the assignment type (the 
first flag set by PRINT AND READ SOURCE is 
on), STA XLATE ensures that a BLOCK DATA 
subprogram is not being compiled and falls 
through to ASSIGNMENT STA XLATE (G0637). 
If a BLOCK DATA subprogram is being com- 
piled, STA XLATE returns after recording an 
invalid statement error message. If the 
statement is not of the assignment type, a 
branch is made to LITERAL TEST (G0640), 
which determines the nature of the state- 
ment from its first word(s), and branches 
to the appropriate routine for processing 
the statement. The names of the statement 
processing routines indicate their func- 
tions; for example, DO statements are 
translated by DO STA XLATE, while Computed 
GO TO statements are translated by CGOTO 
STA XLATE. 



LBL FIELD XLATE (G0635) first saves the 
address of the current WORK and EXIT roll 
bottoms. It then inspects the first six 
columns of the first card of a statement. 
It determines whether a label appears, and 
records the label if it does. If any 
errors are detected in the label field or 
in column 6 of the source card, LBL FIELD 
XLATE records these errors for later print- 



With the exception of LOGICAL IF STA 
XLATE, the • statement processing routines 
terminate their operation through STA XLATE 
EXIT. LOGICAL IF STA XLATE moves the 
second flag set by PRINT AND READ SOURCE 
(which indicates whether the statement "S" 
is an assignment statement) into the first 
flag, and calls STA XLATE as a subroutine 
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for the translation of the statement "S. " 
When all of the Logical IF statement, 
including "S, " has been translated, LOGICAL 
IF STA XLATE also terminates through STA 
XLATE EXIT. 



STA XLATE EXIT (G0723) determines 
whether errors in the statement are of a 



severity level which warrants discarding 
the statement. If such errors exist, and 
the statement is active (as opposed to a 
specification statement), the Polish nota- 
tion produced for the statement is removed 
and replaced by an invalid statement driver 
before a return is made to STATEMENT 
PROCESS. Otherwise, the Polish notation is 
left intact, and a return is made to 
STATEMENT PROCESS. 
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STA FINAL, Chart BE 



PROCESS POLISH, Chart BG 
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ment number by one for the statement just 
processed. It then determines whether any 
Polish notation has been produced on the 
POLISH roll; if no Polish notation is 
present, STA FINAL returns to STATEMENT 
PROCESS. 



PROCESS POLISH (G0844) moves a count of 
the number of words in the Polish notation 
for a statement, and the Polish notation 
for that statement, to the AFTER POLISH 
roll. 



If the statement produced Polish nota- 
tion of a type which may not close a DO 
loop, STA FINAL bypasses the check for the 
close of a DO loop. Otherwise, STA FINAL 
determines whether the label (if there is 
one) of the statement corresponds to the 
label of the terminal statement of a DO 
loop. If so, the label pointer (or poin- 
ters, if the statement terminates several 
DO loops) is removed from the DO L OO PS OPEN 
roll , which holds pointers to DO loop 
terminal statements until the terminal 
statements are found. 

When the statement is the target of a DO 
loop, extended range checking is continued. 
DO loops which have no transfers out of the 
loop are eliminated as extended range can- 
didates. In addition, the nest level count 
is reduced by one and the information 
concerning the array references in the 
closed loop is moved from the SCRIPT roll 
to the PROGRAM SCRIPT roll . 

STA FINAL then places the label pointer 
(if it is required) on the Polish notation 
for the statement, and, at STA FINAL END, 
adds the statement number to the Polish. 

Except wnen the statement just processed 
IF statement, STA FINAL 
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END terminates its op 
Polish notation for 
AFTER POLISH roll. 
Arithmetic IF, the 
moved until the label 
has been processed 
When the Polish no 
STA FINAL returns to 



eration by moving the 
the statement to the 
In the case of the 
Polish notation is not 
of the next statement 
by LBL FIELD XLATE. 
tation has been moved, 
STATEMENT PROCESS. 



ACTIVE END STA XLATE, Chart BF 



ACTIVE END STA XLATE (G0642) is invoked 
by STATEMENT PROCESS when the END card has 
been omitted and the last statement in the 
source module has been read. If the last 
statement was not a branch, the routine 
determines whether a subprogram or a main 
program is being -terminated. If it is a 
subprogram, the Polish notation for a 
RETURN is constructed; if it is a main 
program, the Polish notation for a STOP 
statement is constructed. If the last 
statement was a branch, this routine 
returns without doing anything. 



Trie output rrom Parse 
notation and roll entri 
source module active state 
entries produced for sourc 
cation statements, and 
listing (on option SOURCE) 
sages. The following pa 
the Polish notation and 
error listings. See 
descriptions of roll forma 



Polish Notation 



is the Polish 

es produced for 

ments, the roll 

e module specifi- 

the source module 

and error mes- 

ragraphs describe 

the source and 

Appendix B for 

ts. 



The primary output from Phase 1 of the 
compiler is the Polish notation for the 
source module active statements. This 
representation of the statements is pro- 
duced one statement at a time on the POLISH 
roll. At the end of the processing of each 
statement, the Polish notation is trans- 
ferred to the AFTER POLISH roll, where it 
is held until it is required by later 
phases of the compiler. 

The format of the Polish notation dif- 
fers from one type of statement to another. 
The following paragraphs describe the gen- 
eral rules for the construction of Polish 
notation for expressions. The specific 
formats of the Polish notation produced for 
the various FORTRAN statements are given in 
Appendix C. 

Polish notation is a method of writing 
arithmetic expressions whereby the tradi- 
tional sequence of "operandi" "operation" 
"operand 2 " is altered to a functional nota- 
tion of "operation" "operand^" "operand^.. " 
Use of this notation has the advantage of 
eliminating the need for brackets of 
various levels to indicate the order of 
operations, since any "operand" may itself 
be a sequence of the form "operation" 
"operand" "operand, " to any level of 
nesting. 

Assuming expressions which do not 
include any terms enclosed in parentheses, 
the following procedure is used to con- 
struct the Polish notation for an 
expression: 
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1. At the beginning of the expression, an 
artificial driver is placed on the 
WORK roll; this driver is the Plus and 
Below Phony driver, and has a lower 
forcing strength than any arith- 
metic or logical operator. (Forcing 
strengths are given in Table 1. ) 



2. As each variable name or constant in 
the expression is encountered, a 
pointer to the defining group is 
placed on the POLISH roll. 

3. When an operator is encountered, the 
corresponding driver is constructed 
and it is compared with the last 
driver on the WORK roll: 

a. If the current driver has a higher 
forcing strength than the driver 
on the bottom of the WORK roll 
(the "previous" driver, for the 
purposes of this discussion), the 
current driver is added to the 
WORK roll and the analysis of the 
expression continues. 

b. If the current driver has a forc- 
ing strength which is lower than 
or equal to the forcing strength 
of the previous driver, then: 

(1) If the previous driver is the 
Plus and Below Phony driver, 
the current driver replaces 
the previous driver on the 
WORK roll (this situation can 
only occur when the current 
driver is an EOE driver, indi- 
cating the end of the expres- 
sion) and the analysis of the 
expression is terminated. 

(2) If the previous driver is not 
the Plus and Below Phony driv- 
er, the previous driver is 
removed from the WORK roll and 
placed on the POLISH roll, and 
the comparison of the current 
driver against the previous 
driver is repeated (that is, 
using the same current driver, 
this procedure is repeated 
from 3). 



where : 



A represents a pointer to the defining 
group for the variable A 

♦ represents the Add driver. This nota- 
tion is produced from the top down; when it 
is read from the bottom up, the sequence 
described above for Polish notation is 
satisfied. 



Explanation : The following operations 
occur Ini the production of this Polish 
notation: 

1. The Plus and Below Phony driver is 
placed on the WORK roll. 

2. A pointer to A is placed on the POLISH 
roll. 

3. An Add driver is constructed and com- 
pared with the Plus and Below Phony 
driver on the bottom of the WORK roll; 
the Add driver has a higher forcing 
strength and is therefore added to the 
WORK roll (according to rule 3a, 
above). 

4. A pointer to B is placed on the POLISH 
roll. 

5. An EOE (end of expression) driver is 
constructed and compared with the Add 
driver on the bottom of the WORK roll; 
the EOE driver has a lower forcing 
strength, and the Add driver is there- 
fore removed from the WORK roll and 
added to the POLISH roll (rule 3b2). 

6. The EOE driver is compared with the 
Plus and Below Phony driver on the 
bottom of the WORK roll; the EOE 
driver has a lower forcing strength, 
and therefore (according to rule 3bl) 
replaces the Plus and Below Phony 
driver on the WORK roll. 

7. The analysis of the expression is 
terminated and the EOE driver is 
removed from the WORK roll. The 
Polish notation for the expression is 
on the POLISH roll. 



The sequence of operations which occurs 
when the analysis of an expression is 
terminated removes the EOE driver from the 
WORK roll. 



Exam p le 1 : The expression A + 
the Polish notation 



B produces 



Example 2 : The expression A + B / C 
produces the Polish notation 



which, read from the bottom up, is ♦ / C B 
A. 



MO 



Explanation : The following operations 
occur in the production of this Polish 
notation: 

1. The Plus and Below Phony driver is 
rslaced on the WORK roll. 

2. A pointer to A is placed on the POLISH 
roll. 

3. An Adi driver is constructed and com- 
pared with the Plus and Eelow Phony 
driver; the Add driver has the higher 
forcing strength and is placed on the 
WORK roll. 

4. A pointer to B is placed on the POLISH 
roll. 



5. A Divide driver is constructed and 
compared with the Add driver; the 
Divide driver has the higher forcing 
strength and is placed on the WORK 
roll. 

6. A pointer to C is placed on the POLISH 
roll. 

7. An EOE driver is constructed and com- 
pared with the Divide driver; since 
the EOE driver has the lower forcing 
strength, the Divide driver is moved 
to the POLISH roll. 

8. The EOE driver is compared with the 
Add driver; since the EOE driver has 
the lower forcing strength, the Add 
driver is moved to the POLISH roll. 

9. The EOE driver is compared with the 
Plus and Below Phony driver; since the 
FOE driver has the lower forcing 
strength, it replaces the Plus and 
Below Phony driver on the WORK roll, 
and the analysis of the expression 
terminates with the removal of one 
group from the WORK roll. 



2. 



3. 



a. 



D. 



b. 



7. 



8. 



9. 



A pointer to A is placed on the POLISH 
roll. 

A Divide driver is constructed and 
compared with the Plus and Below Phony 



IX. J. V^i 



Ui A VCI 



higher forcing strength and 
to the WORK roll. 



is added 



A pointer to B is placed on the POLISH 
roll. 

A Subtract driver is constructed and 
compared with the Divide driver; the 
Subtract driver has a lower forcing 
strength, therefore the Divide driver 
is moved to the POLISH roll. 

The Subtract driver is compared with 
the Plus and Below Phony driver; the 
Subtract driver has the higher forcing 
strength and is added to the WORK 
roll. 

A pointer to C is placed on the POLISH 
roll. 

An EOE driver is constructed and com- 
pared with the Subtract driver; since 
the EOE driver has a lower forcing 
strength, the Subtract driver is moved 
to the POLISH roll. 

The EOE driver is compared with the 
Plus and Below Phony driver; the EOE 
driver replaces the Plus and Below 
Phony driver on the WORK roll and the 
analysis of the expression is ter- 
minated. 



Recursion is used in the translation of 
an expression when a left parenthesis is 
found; therefore, the term enclosed in the 
parentheses is handled as a separate 
expression. The following three examples 
illustrate the resulting Polish notation 
when more complicated expressions are 
transformed: 



Example 3 : 



The expression A / B - C 



produces the Polish notation 



Expre ssion 

1. A-B*(C+D> 

2. (A-B)/(C*D) 

3. X/Z/(X-C)+C**X 



Polish Notation 
-♦♦DCBA 
/♦DC-BA 
♦♦♦XC/-CX/ZX 



which, read from the bottom up, is - C / B 
A. 



Explanation : The following operations 
occur in the production of this Polish 
notation : 

1. The Plus and Below Phony driver is 
placed on the WORK roll. 



The following should be noted with re- 
spect to the exponentiation operation: 

• Exponentiations on the same level are 
scanned right to left. Thus, the 
expression A**B**C**D is eguivalent to 
the expression A** (B** (C**D) ) . 

• Two groups are added to the POLISH roll 
to indicate each exponentiation opera- 
tion. The first of these is the Power 
driver; the second is a pointer to the 
group on the global subprogram roll 
(GLOBAL SPROG roll) which defines the 
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required exponentiation routine. Thus, 
the expression A ** B produces the 
following Polish notation: 

Pointer to A 
Pointer to B 
Power driver 
Pointer to exponentiation routine 

The concept of Polish notation is 
extended in the FORTRAN IV (G) compiler to 
include not only the representation of 
arithmetic expressions, but also the repre- 
sentation of all parts of the active state- 
ments of the FORTRAN language. The parti- 
cular notation produced for each type of 
statement is described in Appendix C. Once 
an entire source statement has been pro- 
duced on the POLISH roll, phase 1 copies 
this roll to the AFTER ?<>t,tsh roll and the 
processing of the next statement begins 
with the POLISH roll empty. 



Source Listing 



is catastrophic, at least to part of the 
statement being scanned. The second tech- 
nique is a jump to an error recording 
routine, such as ALLOCATION FAIL or SUB- 
SCRIPTS FAIL, which records the error and 
jumps to FAIL. The third technique is the 
use of one of the instructions, such as 
IEYCSF or IEYQSF, which automatically jump 
to SYNTAX FAIL if the required condition is 
not met. SYNTAX FAIL also exits through 
FAIL. 



If the statement being processed is 
active and errors have been detected in it, 
FAIL removes any Polish notation which has 
been produced for the statement from the 
POLISH roll, replacing it with an error 
indicator. FAIL then restores WORK and 
EXIT roll controls to their condition at 
the last time they were saved and returns 
accordingly. 



The secondary output from Parse is the 
source module listing. If a source listing 
is requested by the user (by means of the 
option SOURCE), source module cards are 
listed exactly as they appear on the input 
data set with error messages added on 
separate lines of the listing. If no 
source module listing is requested, Parse 
writes only erroneous statements and their 
error messages. 

The following paragraphs describe the 

error recording methods used in phase 1, 

the format of the source listing and the 
error messages generated. 

ERROR RECORDING ; As a rule, Parse attempts 
to continue processing source statements in 
which errors are found. However, certain 
errors are catastrophic and cause Parse to 
terminate processing at the point in the 
statement where the error occurred. 

Statements which cannot £>e compiled 
properly are replaced by a call to the 
FORTRAN error routine IHC1BERH. 

Throughout Parse, three techniques of 
error recording are used. The first of 
these is used when the error is not cata- 
strophic. This method records the char- 
acter position in the statement at which 
the error was detected (by means of IEYLCE, 
IEYLCT, or IEYLCF instructions) and the 
number of the error type on the ERROR roll ; 
after recording this information. Parse 
continues to scan the statement. 



Some translation routines modify the 
action of the FAIL routine through the use 
of the IEYJPE instruction so that FAIL 
returns immediately to the location follow- 
ing the IEYJPE instruction. The transla- 
tion routine can then resume the processing 
of the statement from that point. 



FORMAT OF THE SOURCE MODULE LISTING : Error 
information for a source module card con- 
taining errors appears on the listing lines 
immediately following that card. For each 
error encountered, a $ sign is printed 
beneath the active character preceding the 
one which was being inspected when the 
error was detected. The only exception 
would be in the case of a SYNTAX error. In 
such a case, the $ sign undermarks the 
character being inspected when the error is 
detected. The listing line which follows 
the printed card contains only the $ sign 
markers. 

The next line of the listing describes 
the marked errors. The errors are numbered 
within the card (counting from one for the 
first error marked) ; the number is followed 
by a right parenthesis, the error number, 
and the type of the error. Three errors 
are described on each line, for as many 
lines as are required to list all the 
marked errors on the source card. 



The second and thir-1 techniques of error 
recording are used when the error detected 



The following is an illustration of the 
printed output from phase 1: 



U2 



DIMENSION ARYC200), BRY<200> CRY<5,10,10I 

$ 
1) IEY004I COMMA 



IF <AA ♦ BB) 15, 20, 250000 

$ 
1) IEY010I SIZE 

ARY<J> = BRY 
$ $ 

1) IEY002I LABEL 2) IEY012I SUBSCRIPT 
GTO 30 
$ 
1) IEY013I SYNTAX 



ERROR TYPES ; The types of errors detected 
and reported by Parse are described in the 
following paragraphs. For each error type, 
the entire message which appears on the 
source output is given; the condition code 
and a description of the causes of this 
error follows the message. 



IEY001I ILLEGAL TYPE : This message is 
associated with the source module statement 
when the type of a variable is not correct 
for its usage. Examples of situations in 
which this message would be given are: (1) 
The variable in an Assigned GO TO statement 
is not an integer variable; (2) In an 
assignment statement, the variable on the 
left of the equal sign is of logical type 
and the expression on the right side is 
not. The condition code is 8. 



IEY007I_ID_CONFLICT: The name of a vari- 
able or subprogram is used improperly, in 
the sense that a previous statement or a 
previous portion of the present statement 
has established a type for the name, and 
the present usage is in conflict with that 
type. Examples of such situations are: 

(1) The name listed in a CALL statement is 
the name of a variable, not a subprogram; 

(2) A single name appears more than once in 
the dummy list of a statement function; <3) 
A name listed in an EXTERNAL statement has 
already been defined in another context. 
The condition code is 8. 

IEY008I ALLOCATION: Storage assignments 

specified by a source module statement 
cannot be performed due to an inconsistency 
between the present usage of a variable 
name and some prior usage of that name, or 
due to an improper usage of a name when it 
first occurs in the source module. 
Examples of the situations causing the 
error are: (1) A name listed in a COMMON 
block has been listed in another COMMON 
block; 2) A variable listed in an EQUIVA- 
LENCE statement is followed by more than 
seven subscripts. The condition code is 8. 

IEY009I ORDER : The statements of a source 
module are used in an improper sequence. 
This message is produced, for example, 
when: (1) An IMPLICIT statement appears as 
anything other than the first or second 
statement of the source module; (2) An 
ENTRY statement appears within a DO loop. 
The condition code is 8. 



IEY002I LABEL : This message appears with a 
statement which should be labeled and is 
not. Examples of such statements are: (1) 
A FORMAT statement; (2) The statement fol- 
lowing a GO TO statement. The condition 
code for the error is 0. 

IEY003I NAME. LENGTH: The name of a vari- 
able, COMMON block, NAMELIST, or subprogram 
exceeds six characters in length. If two 
variable names appear in an expression 
without a separating operation symbol, this 
message is produced. The condition code is 
a. 



IEY010I SI 

module doe 

for its 

specif icat 

statement 
»,-, i ..~<- . i "> 

statement 
statement 
too large. 



ZE: A number used in the source 
s not conform to the legal values 
use. Examples are: (1) The size 
ion in an Explicit specification 

is not one of the acceptable 
) A label which is used in a 

exceeds the legal size for a 
label; (3) An integer constant is 
The condition code is 8. 



IEY011I UNDIMENSIONED : A variable name 

indicates an array Ti.e., subscripts follow 
the name), and the variable has not been 
dimensioned. The condition code is 8. 



IEYOOMI COMMA : A comma is supposed to 
appear in a statement and it does not. The 
condition code is 0. 

IEY005I ILLEGAL LABEL : The usage of a 
label is invalid for example, if an attempt 
is made to branch to the label of a FORMAT 
statement, ILLEGAL LABEL is produced. The 
condition code is 8. 

IEY006I DUPLICATE LAB EL: A label appearing 
in the label field of a statement is 
already defined (has appeared in the label 
field of a previous statement). The condi- 
tion code is 8. 



IEY012I SUBSCRIPT: The number of sub- 
scripts used in an array reference is 
either too large or too small for the 
array. The condition code is 8. 

IEY013I SYNTAX : The statement or part of a 
statement to which it refers does not 
conform to FORTRAN IV syntax. If a state- 
ment cannot be identified, this error mes- 
sage is used. Other cases in which it 
appears are: (1) A non-digit appears in 
the label field; (2) Fewer than three 
labels follow the expression in an Arith- 
metic IF statement. The condition code is 
8. 
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IEYOIUI CONVERT ; In a DATA statement or in 
an Explicit specification statement con- 
taining data values, the mode of the con- 
stant is different from the mode of the 
variable with which it is associated. The 
compiler converts the constant to the 
correct mode. Therefore, this message is 
simply a notification to the programmer 
that the conversion is performed. The 
condition code is 0. 

IEY0 15I N O END CAR D ; The source module 

does not contain an END statement. The 
condition code is 0. 



IEY016I ILLEGAL STA 



which it 
context 
Examples 
sage app 
Logical 
true con 
ment, a 
statemen 
the sour 
conditio 



is atta 
in wh 

of situa 
ears are: 

IF stat 
dition) i 
DO sta 
t appears 
ce module 
n code is 



ched 
ich 
tion 
(1 
emen 
s a 
teme 

in 

is 

8. 



The statement to 
is invalid in the 
it has been used, 
s in which this mes- 
) The statement S in a 
t (the result of the 
specification state- 
nt r etc. ; 2) An ENTRY 
the source module and 
not a subprogram. The 



IiX22Zl_£3§¥IOy§LX_2I£EN§I()NJSE) WRNo_: The 

array flagged has been previously dimen- 
sioned. Tha dimensions that were given 
first are used. Examples of this error are 
(1) a DIMENSION statement defining an array 
with a subsequent COMMON statement defining 
the same array with new dimensions, or (2) 
array dimersions specified in a Type state- 
ment and also in a subsequent DIMENSION 
and/or COMMON statement. The condition 
code is 4. 



IEY038I SIZE WRN. : 



variable has data 



initializing values that exceed the size of 
the scalar, the array, or the array ele- 
ment. Examples of this error are (1) the 
specification REAL A/'ABCDE* / where A has 
not been previously dimensioned (i.e., A is 
a scalar), or (2) the specification 
DATA A(1)/7H AECDEFG/ where A has been 
previously dimensicned. The condition code 
is 4. 



IEY017I ILLEGAL STA. 



WRN ; A RETURN I 
statement appears in any source module 
other than a SUBROUTINE subprogram. The 
condition code is 0. 



IEY018I NUMBER ARG ; A reference to a 
library subprogram appears with the in- 
correct number of arguments specified. 



The condition code is *4. 



IEY027I CONTINUATION CARDS DELETED : More 
than 19 continuation lines were read for 1 
statement. All subsequent lines are 
skipped until the beginning of the next 
statement 
code is 8. 



is encountered. The condition 



IEY0 33I COMMENTS DELETED: 



More than 30 



comment lines were read between the initial 
lines of 2 consecutive statements. The 
31st comment line and all subsequent com- 
ment lines are skipped until the beginning 
of the next statement is encountered. 
(There is no restriction en the number of 
comment lines preceding the first state- 
ment. ) The condition code is 0. 

IEY0 36I ILLE GAL LABEL WRN: The label on 

this nonexecutable statement has no valid 
use beyond visual identification, and may 
produce errors in the object module if the 
same label is the target of a branch-type 
statement. (Only branches to executable 
statements are valid. ) This message is 
produced, for example, when an END state- 
ment is labeled. The message is issued as 
a warning only. The condition code is M. 



PHASE 2 OF THE COMPILER: ALLOCATE (IEYALL) 



Phase 2 of the compiler performs the 
assignment of storage for the variables 
defined in the source module. The results 
of the allocation operations are entered on 
tables which are left in storage for the 
next phase. In addition, Allocate writes 
(on option! the object module ESD cards, 
the TXT cards for NAMELIST tables, literal 
constants, and FORMAT statements, and pro- 
duces error messages and storage maps 
(optionally) on the SYSPRINT data set. 



The following paragraphs describe the 
operations of Allocate in two parts. The 
first part, "Flow of Phase 2," describes 
the overall logic of the phase by means of 
narrative and flowcharts. 



The second part, "Output from Phase 2," 
describes the error messages and memory 
maps which are produced on the source 
module listing during the operation of the 
phase, as well as the ESD and TXT cards 
produced. It also describes the types of 
error detection performed during Allocate. 



Rolls manipulated by Allocate are listed 
in Table U, and are briefly described in 
context. Detailed descriptions of roll 
structures are given in Appendix B. 



uu 



Table 4. Rolls Used by Allocate 











|Roll 




Roll 






|No. 


Roll Name 


No. 


Roll Name 




1 1 


Source 


39 


Ha If word 




i s 


Literal Const 




Scalar 




I 7 


Global Sprog 


40 


Common Name 




I 1" 


Temp 


41 


Implicit 




i 15 


Do Loops Open 


42 


Equivalence 




1 18 


Init 




Offset 




1 19 


Equiv Temp 


43 


Lbl 




1 20 


Equiv Hold 


(1 Ll 


Qr-a 1 =»t- 




i 21 


Base Table 


45 


Data Var 




| 22 


Array 


47 


Common Data 




| 23 


Dmy Dimension 




Temp 




| 24 


Entry Names 


48 


Namelist 




1 25 


Global Dmy 




Allocation 




! 26 


Error Lbl 


48 


Common Area 




| 27 


Local Dmy 


49 


Common Name 




] 28 


Local Sprog 




Temp 




| 29 


Explicit 


50 


Equiv 




| 30 


Error Symbol 




Allocation 




! 31 


Namelist Names 


52 


Common 




| 32 


Namelist Items 




Allocation 




I 34 


Branch Table 


53 


Format 




| 37 


Equivalence 


60 


Subchk . 




! 37 


Byte Scalar 


68 


General 




| 3fi 
1 


Used Lib 
Function 




Allocation 




| 39 


Common Data 
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FLOW OF PHASE 2, CHART 05 



START ALLOCATION (GO 3 59) controls the 
operation of the Allocate phase. The pri- 
mary function of this routine is to call 
the subordinate routines which actually 
perform the operations of the phase. 

The operation of Allocate is divided 
into three parts: the first part performs 

pass 1) makes an estimate of the number of 
base table entries required to accommodate 
the data in the object module; the third 
part actually assigns storage locations for 
the object module components, leaving indi- 

v.atxuiib \~>x uic ooo x yjjncii t_ x 

for use by subsequent phases. 

The first part of Allocate' s operation 
is performed by calling the routines ALPHA 
LBL AND L SPROG, PREP EQUIV AND PRINT 
ERRORS, BLOCK DATA PROG ALLOCATION, PREP 
DMY DIM AND PRINT ERRORS, PROCESS DO LOOPS, 
PROCESS LBL AND LOCAL SPROGS, BUILD PROGRAM 
ESD, ENTRY NAME ALLOCATION, COMMON 
ALLOCATION AND OUTPUT, and EQUIV ALLOCATION 
PRINT ERRORS. 

After return from EQUIV ALLOCATION PRINT 
ERRORS, START ALLOCATION initializes for 
and begins pass 1. The variable PROGRAM 
BREAK, which is used to maintain the rela- 
tive address being assigned to an object 
module component, is restored after being 
destroyed during the allocation of COMMON 
and EQUIVALENCE. The groups in the BASE 
TABL E roll (which becomes the object module 
base table) are counted, and the value ten 
is added to this count to provide an 
estimate of the size of the object module 
base table. The BASE TABLE roll is then 
reserved so that groups added to the roll 
can be separated from those used in the 
count. The value one is assigned to the 
variable AREA CODE, indicating that storage 
to be assigned is all relative to the 
beginning of the object module and carries 
its ESD number. 



prior to pass 1. The BASE TABLE roll 
groups are counted to determine the total 
size of the roll after groups have been 
added by pass 1; again, five extra groups 
(or ten words) are added to the count to 
provide for data values which will appear 
in the object module, but which are not yet 
defined. The PASS 1 FLAG is then turned 
off, and START ALLOCATION calls DEEUG 
ALLOCATE, ALPHA SCALAR ARRAY AND SPROG, 
BASE AND BRANCH TABLE ALLOC, GLOBAL SPROG 



rt r rvr'i.Tir 
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SCALAR ALLOCATE, ARRAY ALLOCATE, BUILD 
NAMELIST TABLE, LITERAL CONST ALLOCATION, 
and FORMAT ALLOCATION. 

At RELEASE ROLLS, START ALLOCATION con- 
CiUucS its operation by releasing roils, 
increasing the PROGRAM BREAK to ensure that 
the next base begins on a doubleword boun- 
dary, and calling CALCULATE BASE AND DISP 
and BUILD ADDITIONAL BASES in order to 
guarantee that at least three bases are 

allotted for the TEMP AND CONST roll. 

After this calculation, Allocate prepares 
for and relinquishes control to Unify. 



A LPHA LBL AND L SPROGS, Chart CA 



This routine (G05U3) is the first rou- 
tine called by START ALLOCATION. It moves 
the binary labels from the LBL roll and the 
statement function names from the LOCAL 
SPROG roll to the DATA VAR roll . The order 
of the labels and statement function names 
on their respective rolls is maintained, 
and the location on the DATA VAR roll at 
which each begins is recorded. The names 
are moved because Allocate destroys them in 
storing allocation information, and Exit 
needs them for writing the object module 
listing. 



ALPHA SCALAR ARRAY AND SPROG, Chart CA 



When these operations are complete, 
START ALLOCATION calls EASE AND BRANCH 
TABLE ALLOC, and upon return from this 
routine again increases the variable 
PROGRAM BREAK by the amount of storage 
allocated to EQUIVALENCE. START ALLOCATION 
continues its operation by calling BUILD 
ADDITIONAL BASES, PREP NAMELIST, SCALAR 
ALLOCATE, ARRAY ALLOCATE, PASS 1 GLOBAL 
SPROG ALLOCATE, SPROG ARG ALLOCATION, 
LITERAL CONST ALLOCATION and FORMAT 
ALLOCATION . 



This routine moves the names of scalars, 
arrays, and called subprograms to the DATA 
VAR roll from the rolls on which they are 
placed by Parse. The order of names is 
preserved and the beginning location for 
each type of name on the DATA VAR roll is 
saved. 



PREP 



)UIV AND PRINT ERRORS t ..Chart CB 



After the operation of FORMAT 
ALLOCATION, the last part of Allocate is 
begun. The variable PROGRAM BREAK is re- 
initialized to the value it was assigned 



Subscript information on the EQUIVALENCE 
O FFSET roll (which indicates the subscripts 
used in EQUIVALENCE statements in the 
source module) is used by this routine 
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(G0362) to calculate the relative ad- 
dresses of array elements referred to in 
statements. (Pointers to the EQUIVALENCE 
OFFSET roll are found on the EQUIVALENCE 
roll for all subscripted references in 
EQUIVALENCE statements. ) The addresses 
computed are relative to the beginning of 
the array. When an array reference in a 
source module EQUIVALENCE statement is out- 
side the array, designates an excessive 
number of dimensions, or specifies too few 
dimensions, an error message is printed by 
this routine. 



On encountering information on the DO 
LOOPS OPEN roll, this routine records the 
undefined labels for listing as DO loop 
errors, and (on option) lists them. It 
also sets the high order bit of the TAG 
field of the LBL_roll group which refers to 
the undefined~label to zero; this indicates 
to Gen that the loop is not closed. 



PRgCESS_LBL_AND._LOCAL - SPRgGS t _Ch§rt_CF 



BLOCK DATA PROG ALLOCATION. Chart CC 



This routine (G0361) controls the allo- 
cation of data specified in DATA, COMMON, 
DIMENSION, EQUIVALENCE, and Type statements 
in a BLOCK DATA subprogram. Since all data 
specified in EQUIVALENCE must be allocated 
under COMMON, this routine registers an 
error upon encountering on the EQUIVALENCE 
roll. The routine terminates with a jump 
to RELEASE ROLLS (G0360), which, in turn, 
terminates the Allocate phase. 



PREP DMY DIM AND PRIN T ERRCR3, Chart CD 



This routine (G0365) constructs the DMY 
DIMENSION roll, placing a pointer to the 

ENTR Y NAME S rol l group defining the ENTRY 

with which a dummy array is connected, and 
a pointer to the array for each dummy array 
containing a dummy dimension. 

Before the roll is constructed, this 
routine ensures that each array having 
dummy dimensions is itself a dummy, and 
that each dummy dimension listed for the 
array is either in COMMON or is a global 
dummy variable in the same call. If any of 
these conditions are not satisfied, error 
messages are written. 



This routine (G0372) constructs the 
BRANCH TABLE roll , which is to become the 
object module branch table. The routine 
first processes the LBL roll. For each 
branch target label found on that roll, a 
new BRANCH TABLE roll group is constructed, 
and the label on the LBL roll is replaced 
with a pointer to the group constructed. 
Undefined labels are also detected and 
printed during this process. 

When this operation is complete, the 

LOCAL §PROG_rgll (which lists the names of 

all statement functions) is inspected, and 
for each statement function, a group is 
added to the BRANCH TABLE roll, and part of 
the statement function name is placed with 
a pointer to the constructed group. 



BUILD PROGRAM ESD. Chart CG 



This routine (G037U) constructs and 
punches the ESD cards for the object module 
itself (the program name) and for each 
ENTRY to the object module. It also 
assigns main storage locations to the 
object module heading by increasing the 
PROGRAM BREAK by the amount of storage 
required. 



PROCESS DO LOOPS. Chart CE 



This routine (G0371) inspects the DO 
LOOPS OPEN roll for the purpose of deter- 
mining whether DO loops opened by the 
source module have been left unclosed; that 
is, whether the terminal statement of a DO 
loop has been omitted from the source 
module. The DO LOOPS CPEN roll holds 
pointers to labels of target statements for 
DO loops until the loops are closed. If 
any information is present on this roll, 
loops have been left unclosed. 



INTRY_NAME_ALLOCATigN x _Chart_Cg 



This routine (G0376) does nothing if the 
source module is other than a FUNCTION 
subprogram. If, however, the source module 
is a FUNCTION, this routine places the 
names of all ENTRYs to the source module on 
the EQUIVALENCE roll as a single 
EQUIVALENCE set; it also ensures that the 
ENTRY name has been used as a scalar in the 
routine. If the variable has not been 
used, an appropriate error message is 
printed and the scalar variable is defined 
by this routine. 



U6 



COMMON ALLOCATION AND OUTPUT, Chart CI 



This routir' 1 (G0377) allocates all COM- 
MON storage, one block at a time, generat- 
ing the COMM ON A LLOCA TION roll (which holds 
the name, base pointer, and displacement 
for all COMMON variables) in the process. 
Groups are added to the BASE TABLE roll as 
they are requ i -ed to provide for references 
to variables n COMMON. The ESD cards for 
COMMON are constructed and written out. 
All errors in '"OMMON allocation are written 
on the source listing and the map of COMMON 
storage is also written (on option). 



EQUIV ALLOCATION PRINT ERRORS, Chart CK 



allocates storage for the variables listed 
on the roll, except for those which are in 
COMMON or members of EQUIVALENCE sets. The 
first time SCALAR ALLOCATE operates, it 
determines the number of base table entries 
required to accommodate references to the 
object module scalar variables. The infor- 
mation on the SCALAR roll is not altered, 
nor is any other roll built or modified by 
the routine. 



At the second operation of the routine, 
the SCALAR roll is modified, and the actual 
storage locations (represented by the base 
pointer and displacement) to be occupied by 
the scalar variable are either computed and 
stored on the SCALAR roll or copied from 
the COMMON or EQUIV ALLOCATION roll to the 
SCALAR roll. 



This routine (G0381) allocates storage 
for EQUIVALENCE variables, creating the 
EQUIVALENCE ALLOCATION roll in the process. 
For each variable appearing in an EQUIVA- 
LENCE set, except for EQUIVALENCE variables 
which refer to COMMON (which have been 
removed from the EQUIVALENCE roll during 
the allocation of COMMON storage), the name 
of the variable and its address are 
recorded. 

The information pertaining to EQUIVA- 
LENCE sets is stored on the EQUIV ALLOCA- 
TION roll in order of ascending addresses. 
Required bases are added to the BASE TABLE 
roll, and all remaining EQUIVALENCE errors 
are printed. 



All "call by name" dummy variables are 
placed on the FULL WORD SCALAR roll; as 
each remaining scalar is inspected, its 
mode is determined. If it is of size 8 or 
16 (double-precision real or single- or 
double-precision complex), storage is allo- 
cated immediately. If the variable does 
not require doubleword alignment, it is 
moved to one of three rolls depending on 
its size: FULL WORD SCALAR, HALF WORD 
SCALAR, or BYTE SCALAR. 

When all groups on the SCALAR roll have 
been processed in this manner, the 
variables on the FULL WORD SCALAR roll , 
then the HALF WORD SCALAR roll , then the 
BYTE SCALAR roll are assigned storage. The 
map of scalars is produced (on option) by 
this routine. 



BASE AND BRANCH TABLE ALLOC. Chart CL 



This routine (G0437) assigns main 
storage for the object module save area, 
base table, and branch table. The required 
base table entries are added as needed, 
PROGRAM BREAK is increased, and the base 
pointer and displacement for each of these 
areas is recorded in a save area for use by 
Gen. During pass 1 of Allocate, this 
assignment of storage is tentative and 
depends on the estimate of the size of the 
bare table. The second time this routine 
is operated, the actual number of base 
table entries required in the object module 
has been determined by pass 1 and the space 
allocation is final. 



SCALAR ALLOCATE, Chart CM 



Each group on the SCALAR roll is 
inspected by this routine (G0397), which 
defines all nonsubscripted variables. It 



ARRAY ALLOCATE, Chart CN 



This routine (G0U01) , like SCALAR ALLOC- 
ATE, is called twice by START ALLOCATE. 
The first time it is called, it determines 
the number of base table entries required 
for references to the object module arrays. 
The second time the routine is operated, it 
actually assigns storage for the arrays, 
and records the appropriate base pointer 
and displacement on the ARRAY roll. 

As each array name is found on the ARRAY 
roll, it is compared with those on the 
COMMON, EQUIV, and GLOBAL DMY rolls. For 
COMMON and EQUIVALENCEd arrays, the alloca- 
tion information is copied from the appro- 
priate roll. Since all dummy arrays are 
'call by name" dummies, dummy array groups 
are always replaced with pointers to the 
GLOBAL DMY roll. For each array to be 
assigned storage, new base table entries 
are constructed as required. In no case is 
more than one base used for a single array. 
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Since arrays are allocated in the order 
of their appearance, some unused storage 
space may appear between consecutive arrays 
due to the required alignment. The array 
map is produced (on option) by this 
routine. 



literal constants in the object module. 
The second operation of the routine 
actually assigns storage for all literal 
constants (except those appearing in source 
module DATA and PAUSE statements) and 
writes (on option) the TXT cards for them. 



PASS 1 GLOBAL SPROG ALLOCATE, Chart CO 



FORMAT ALLOCATION, Chart CS 



This routine (G0402) counts the groups 
on the GLOBAL SPROG and USE D LIB FUNCT ION 
rolls (which hold, respectively, the non- 
library and library subprogram names 
referred to in the source module) to deter- 
mine the number of base table entries 
required for references to the subprogram 
addresses region of the object module. The 
required BASE TABLE roll groups are added. 



SPROG ARG ALLOCATION, Chart CP 



This routine (G0442) adds the number of 
arguments to subprograms (and thus, the 
number of words in the argument list area 
of the object module) to the PROGRAM BREAK, 
thus allocating storage for this portion of 
the object module. BASE TABLE roll groups 
are added as required. 



PREP NAMELIST. Chart CQ 



This routine (G0UU3) determines the 
amount of main storage space required for 
each object module NAMELIST table. The 
NAME LIST ALLOCATION roll is produced during 
this routine's operation; it contains, for 
each NAMELIST data item, the name of the 
item and a pointer to the SCALAR or ARRAY 
roll group defining it. If any data name 
mentioned in a NAMELIST is not the name of 
a scalar or array, the appropriate error 
message is printed by this routine. 

The NAMELIST NAMES roll is left holding 
the NAMELIST name and the absolute location 
of the beginning of the corresponding 
object module NAMELIST table. Required 
BASE TABLE roll groups are added by this 
routine. 



This routine (G0445) is called twice by 
START ALLOCATION. The first time it is 
called is during the operation of pass 1. 
In pass 1, the PROGRAM BREAK is increased 
by the number of bytes occupied by each 
FORMAT. 

The second time that FORMAT ALLOCATION 
is called, each FORMAT is written out and 
the FORMAT roll is rebuilt. The base and 
displacement information and a pointer to 
the label of the FORMAT statement are the 
contents of the rebuilt FORMAT group. The 
map of the FORMAT statements used in the 
object module is also written out (on 
option) by this routine. 



EQUIV MAP . Chart CT 



This routine (G0441) adjusts the values 
on the E QUIVALENCE ALLOCATION roll to the 
corrected (for the correct allocation of 
the base table, since this routine operates 
after the completion of pass 1) base point- 
er and displacement, and constructs the 
BASE TABLE roll groups required. The map 
of EQUIVALENCE variables is produced (on 
option) by this routine. 



GLOBAL SPROG ALLOCATE, Chart CU 



This routine (G0403) goes through the 
GLOBAL SPROG and USED LIB FUNCTION rolls, 
inserting the base pointer and displacement 
for each of the subprograms listed there; 
this is the allocation of storage for the 
subprogram addresses region of the object 
module. The ESD cards for the subprograms 
are written, the required BASE TABLE roll 
groups are added, and a list of the subpro- 
grams called is produced (on option) . 



LITERAL CONST ALLOCATION, Chart CR 



BUILD NAMELIST TABLE, Chart CV 



This routine (G0444) is called twice by 
START ALLOCATION. Its first operation de- 
termines the number of BASE TABLE roll 
groups which should be added to cover the 



This routine (G0U05) operates after pass 
1 of Allocate. It uses the NAMELIST NAMES 
roll in determining the base and displace- 
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went for each NAMELIST reference in the 
source module. The BASE TAELE roll groups 
are added as required. The PROGRAM BREAK 
is increased as indicated, and the TXT 
cards are written out according to the base 
and displacement calculations for each 
entry on the NAMELIST ALLOCATION roll. A 
map of the NAMELIST tables is produced (on 
option) fcy this routine. 



ENTRY is defined. If no such scalars are 
listed on the SCALAR roll, the message 



IEY019I FUNCTION ENTRIES UNDnrlNcD 



is written on the source module listing. 
The message is followed by a list of the 
undefined names. The condition cede is 4. 



BUILD ADDITIONAL BASES. Chart CW 



This routine (G0438) is called whenever 
it may be necessary to construct a new BASE 
TABLE roll group. It determines whether a 
new base is required and, if so, constructs 
it. 



COMMON ERRORS: Errors of two types can 

exist in~ the definitions of EQUIVALENCE 
sets which refer to the COMMON area. The 
first type of error exists because of a 
contradiction in the allocation specified, 
e.g., the EQUIVALENCE sets (A, B(6) , C<2) > 
and (B(8),C(1>). The second error type is 
due to an attempt to extend the beginning 
of the COMMON area, as in COMMON A, B, C and 
EQUIVALENCE (A,F(10)>. 



DEBUG ALLOCATE. Chart CX 



This routine (GOSUb) processes the 
information on the INIT and SUBCKK rolls, 
marking the groups on the SCALAR, ARRAY, 
and GLOBAL DMY rolls which define the 
variables listed. When all the information 
on the SUBCHK roll has been processed, the 
routine returns. 



An additional e 
COMMON storage occ 
attempts to alloca 
tion which does no 
boundary. Since 
assumed to begin 
boundary, this e 
either (or both) t 
an EQUIVALENCE s 
COMMON. 



rror in the assignment of 
urs if the source program 
te a variable to a loca- 
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OUTPUT FROM PHASE 2 



When each block of COMMON storage has 
been allocated, the message 



The following paragraphs describe the 
output from Allocate: error messages, 
maps, and cards. Allocate also produces 
roll entries describing the assignment of 
main storage. See Appendix B for descrip- 
tions of the roll formats. 



Error M e ssages P ro duc ed by Allocate 



IEY020I COMMON BLOCK / / ERRORS 



is printed if any error has been detected 
(the block name is provided). The message 
is followed by a list of the variables 
which could not be allocated due to the 
errors. The condition code is 4. 



The source module listing, with error 
indications and error messages for the 
errors detected during initial processing 
of the source statements, is produced by 
phase 1 of the compiler. Certain program 
errors can occur, however, which cannot be 
detected until storage allocation takes 
place. These errors are detected and 
reported (if a listing has been requested), 
at the end of the listing by ALLOCATE; the 
error messages are described in the follow- 
ing paragraphs. 



FUNCTION ERROR: 



When the 



program being 
compiled is a FUNCTION subprogram, a check 
is made to determine whether a scalar with 
the same name as the FUNCTION and each 



Unclosed DO Loops 



If DO loops are initiated in the source 
module, but their terminal statements do 
not exist, Allocate finds pointers to the 
labels of the nonexistent terminal state- 
ments on the DO LOOPS OPEN roll. If 
pointers are found on the roll, the message 

IEY021I UNCLOSED DC LOOPS 

is printed, followed by a list of the 
labels which appeared in DO statements and 
were not defined in the source module. The 
condition code is 8. 
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UNDEFINED LABELS: If any labels are used 
in the source module but are not defined, 
they constitute label errors. Allocate 
checks for this situation. At the conclu- 
sion of this check, the messaqe 

IEY022I UNDEFINED LABELS 

is printed. If there are undefined labels 
used in the source module, they ere listed 
on the lines following the message. The 
condition code is 8. 



BLOCK DATA ERRORS : If variables specified 
within the BLOCK DATA subprogram have not 
also been defined as COMMON, they consti- 
tute errors. The message 

IEY026I BLOCK DATA PROGRAM ERRORS 

is produced on the source module listing 

followed by a summarization of the 

variables in error. The condition code is 
4. 



EQUI VALENCE ERROR S: Allocation errors due 

to the arrangement of EQUIVALENCE state- 
ments which do not refer to COMMON 
variables may have two causes. The first 
of these is the conflict between two EQUIV- 
ALENCE sets; for example, (A, B( 6) , C( 3) ) and 
(B(B),C(1) ). 

The second is due to incompatible boun- 
dary alignment, in the EQUIVALENCE set. The 
first variable in each EQUIVALENCE set is 
assigned to its appropriate boundary, and a 
record is kept of the size of the variable. 
Then, as each variable in the set is 
processed, if any variable of a greater 
size requires alignment, the entire set is 
moved accordingly. If any variable is 
encountered of the size which caused the 
last alignment, or of lower size, and that 
variable is not on the appropriate boun- 
dary, this error has occurred. 

If EQUIVALENCE errors of either of these 
types occur, the message 

IEY023I EQUIVALENCE ALLOCATION ERRORS 

is printed. The message is followed by a 
list of the variables which could not be 
allocated according to source module speci- 
fications. The condition code is 1. 

Another class of EQUIVALENCE error is 
the specification, in an EQUIVALENCE set, 
of an array element which is outside the 
array. These errors are summarized under 
the heading 

IEY02UI EQUIVALENCE DEFINITION ERRORS 



on the source module listing, 
tion code is 4. 



The condi- 



DUMMY DIMENSION ERRORS : If variables spe- 
cified as dummy array dimensions are not in 
COMMON and are not global dummy variables, 
they constitute errors. These are summa- 
rized under the heading 



IEY025I DUMMY DIMENSION ERRORS 

on the source module listing, 
tion code is 4. 



Sto£ag§_Mags_Produced_by._Allocate 



Allocate produces the storage maps de- 
scribed below during its operations; these 
maps are printed only if the MAP option is 
specified by the programmer. 

COMMON MAP : The map Of each COMMON block 
is produced by Allocate. The map is headed 
by two title lines; the first of these is 

COMMON / name / MAP SIZE n 

and the second is the pair of words 

SYMBOL LOCATION 

printed five times across the line. The 
title lines are followed by a list of the 
variables assigned to the COMMON block and 
their relative addresses, five variables 
per line, in order of ascending relative 
addresses. The name contained within the 
slashes is the name of the COMMON block. 
The amount of core occupied by the block 
<n> is given in hexadecimal and represents 
the number of bytes occupied. 



The condi- 



Subproqram List 



Allocate prints a list of the subpro- 
grams called by the source module being 
compiled. This list is printed only if the 
MAP option is specified by the programmer. 
The subprogram list is headed by the line 

SUBPROGRAMS CALLED 

and contains the names of the subroutines 
and functions referred to in the source 
module. 

SCA LA R MAP: The scalar map is produced by 

Allocate and consists of two title lines, 
the first of which reads 

SCALAR MAP 

and the second of which is identical to the 
second title line of the COMMON maps. The 
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title is followed by a list of the non- 
COMMON scalar variables, five variables per 
line, and their relative addresses, in 
order of ascending relative addresses. 



ARRAY MAP: 



The first title line of the 



array map reads 
ARRAY MAP 



ESD, type 1 - contains the entry point to a 
SUBROUTINE or FUNCTION subpro- 
gram, or the name specified in 
the NAME option', or the name 
MAIN. The name designated on the 
card indicates where control is 
given to begin execution of the 
iiiOu ule. 



In all other respects, the array map is 
identical to the scalar map. 

E QUIVAIENC E MAP: The first title line of 

the map of "EQUIVALENCE sets reads 

EQUIVALENCE DATA MAP 

The second line for both maps is standard. 
The variables listed in the EQUIVALENCE map 
are those not defined as COMMON. 

NAMELIST M AP: This map shows the locations 
of the NAMELIST tables. The first title 
line reads 



ESD, type 2 - contains the names of subpro- 
grams referred to in the source 
module oy CALL statements, 
EXTERNAL statements, explicit 
function references, and implicit 
function references. 



ESD, type 5 - contains information about 
each COMMON block. 



The TXT cards produced during this phase 
fill the following areas of the object 
module: 



NAMELIST MAP 

and the second line is standard. The 
symbol listed is the NAMELIST name asso- 
ciated with each of the tables. 



• The NAMELIST tables 

• The literal constants 

• The FORMAT statements 



FORM A T MAP : This map gives the labels and 
locations of FORMAT statements. The first 
title line is 

FORMAT STATEMENT MAP 

and the second title is the same as the 
others described. The symbol listed is the 
label of the FORMAT statement. 



The other TXT cards reguired for the 
object module are produced by later phases 
of the compiler. 



Duacr 1 np 



Cards Produced by Allocate 



Allocate produces both ESD and TXT 
cards, provided that a DECK option or a 
LOAD option has been specified by the 
programmer. All ESD cards required by the 
object module are produced during this 
phase. These include cards for the CSECT 
in which the object module is contained for 
each COMMON block and for each subprogram 
referred to by the object module. 

The ESD cards that are produced by 
Allocate are given in the following order 
according to type: 

ESD, type - contains the name of the 
program and indicates the begin- 
ning of the object module. 



>KA 



KJt xnr- LunriiifiK: 



UNIFY (ItYUNt) 



The third phase of the compiler opti- 
mizes the subscripting operations performed 
by the object module by deciding, on the 
basis of frequency of use, which subscript 
expressions within DO loops are to appear 
in general registers, and which are to be 
maintained in storage. 

The following paragraphs, "Flow of Phase 
3," describe the operation of Unify by 
means of narrative and flowcharts. 

The rolls manipulated by Unify are 
listed in Table 5 and are mentioned in the 
following discussion of the phase; these 
rolls are briefly described in context. 
See Appendix B for a complete description 
of any roll used in the phase. 
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Table 5. Rolls Used by Unify 
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ne (G0145) constructs the 
11. The groups on this roll 
ed with values of zero, 
the roll have been placed on 
i and in the Polish notation 
information has not actually 
e roll before this routine is 
umber of groups required has 
ed from Parse. 



Chart DE 



FLOW OF PHASE 3, CHART 07 



START UNIFY (G0111) controls the opera- 
tion of this phase of the compiler. It 
initializes for the phase by setting the 
proper number of groups on the ARRAY REF 
roll to zero (this function is performed by 
the routine ARRAY REF ROLL ALLOTMENT) and 
moving the information transmitted on the 
PROGRAM SCRIPT roll to the SCRIPT roll. 
When the initialization is complete, the 
reserve blocks on the SCRIPT roll are in 
order from the outermost loop of the last 
source module DO nest (at the top of the 
roll) to the innermost loop of the first 
source module DO nest (at the bottom of the 
roll). 

After initialization, START UNIFY begins 
the optimizing process by inspecting the 
last group of a reserve block on the SCRIPT 
roll; a value of zero in this group indi- 
cates the end of the SCRIPT roll informa- 
tion. When the value is nonzero, DO NEST 
UNIFY is called to process the information 
for an entire nest of CO lcops. On return 
from this routine, the nest has been pro- 
cessed; the count of temporary storage 
locations required is updated, and START 
UNIFY repeats its operations for the next 
nest of loops. 

When all loops have been processed, 
START UNIFY makes a complete pass on the 
ARRAY RFF roll , setting up the instruction 
format for the array references from point- 
ers which have been left on the roll 
(CONVERT TO INST FORMAT actually sets up 
the instruction fields). When all groups 
on the ARRAY REF roll have been processed, 
a jump is made to CONVERT TO ADR CONST. 
This routine sets up groups as required on 
the ADR C ONST rol l from data on the LOOP 
CONTROL roll. When the LOOP CONTROL roll 
has been processed, this routine terminates 
the Unify phase by calling Gen. 



This routine IG0113) constructs the ADR 
CONST roll from the base address informa- 
tion on the LOOP CONTROL roll. 



When the third word of the LOOP CONTROL 
roll group contains an area code and dis- 
placement, Unify requires a base address 
which it does not find in the base table. 
Since no values can be added to the base 
table by Unify, the required value must be 
placed in the temporary storage and con- 
stant area of the object module. The ADR 
CONST roll holds the information required 
for Exit to place the value in a temporary 
storage and constant location and to pro- 
duce the RLD card required to get the 
proper modification of the value in that 
location at load time. This routine builds 
that information on the ADR CONST roll by 
allocating the temporary storage and con- 
stant locations for the area codes and 
displacement values it finds on the LCOP 
CONTROL roll. See Appendix B for further 
explanation of the rolls involved. 



CONVERT TO INST FORMAT. Chart DC 



This routine (G0112) sets up the first 
word (zero rung) of each ARRAY REF roll 
group by testing the contents of the later 
words (the register rungs) of the same 
roll. The result is the skeleton of the 
instruction to be used for an array 
reference. When the second and third words 
of the group point to a general register, 
they are shifted into the appropriate posi- 
tion and inserted into the zero rung. (See 
Appendix B for the configuration of the 
ARRAY REF roll group.) At each entry to 
this routine, one word is processed and 
that word is cleared to zero before the 
routine exits. 
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DO NEST UNIFY, Chart DP 



P hase 4 o f _ the Comp iler: Gen (IEYGEN) 



This routine (G0115) first initializes 
for the processing of one nest of DO loops. 
For each DO loop, a reserve block exists on 
the SCRIPT roll and one group exists on the 
LOOP DATA roll . These blocks and groups 
are ordered so that, reading from the 
bottom of the rolls up, a nest level of one 
indicates the end of a nest of loops; that 
is, for each nest, the bottom block repre- 
sents the inner loop and the top block 
represents the outer loop. 

DO NEST UNIFY serves a control function 
in this phase, arranging information to be 
processed by DO LOOP UNIFY and LEVEL ONE 
UNIFY; it is these latter routines which 
actually perform the optimization of sub- 
scripting by means of register assignment. 
The main result of the optimization is that 
in the initialization code for each loop, 
only that portion of each subscript which 
depends on the DO loop variable is 
computed. 

DO LOOP UNIFY expects to find a reserved 
block on the bottom of the NEST SCRIPT roll 
describing a loop one nest level deeper 
than the loop described by the bottom 
reserved block on the SCRIPT roll. More- 
over, both the block on the SCRIPT roll and 
the block on the NEST SCRIPT roll must 
already reflect the allocation of arrays by 
Allocate; that is, both blocks must have 
been processed by NOTE ARRAY ALLOCATION 
DATA, another routine called by DO NEST 
UNIFY. This arrangement is required so 
that DO LOOP UNIFY can pass information 
from the loop beinq processed (on the NEST 
SCRIPT roll) to the next outer loop (on the 
SCRIPT roll). 



f the reserved 
st level one, 
loop to which 
The routine 
in place of DO 
xpects to find 
the level one 



A special case is made o 
block describing a loop of ne 
since there is no outer 
information can be passed. 
LEVEL ONE UNIFY processes 
LOOP UNIFY in this case; it e 
the reserved block describing 
loop on the NEST SCRIPT roll. 



IEYROL MODULE 



The IEYROL module is loaded into main 
storage by program fetch, along with the 
Invocation phase and the five processing 
phases. It contains two static rolls (the 
WORK roll and the EXIT roll), roll statis- 
tics, group stats, and the ROLL ADR table. 
Throughout the operation of the compiler, 
it maintains a record of the storage space 
allocated by the control program to the 
dynamic rolls. 



Gen produces object code from the Polish 
notation and roll information left by pre- 
vious phases of the compiler. The code 
produced by this phase appears, one state- 
ment at a time, on the CODE roll , and is 
saved there until it is written out by 
EXIT. 

The following paragraphs, "Flow of Phase 
4," describe the operation of this phase by 
means of narrative and flowcharts. 

The rolls manipulated by Gen are listed 
in Table 6 and are mentioned in the follow- 
ing description of the phase? these rolls 
are briefly described in context. See 
Appendix B for a complete description of 
all of the rolls used in the phase. 
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FLOW OF PHASE 4, CHART 08 



START GEN (G0491) initializes for the 
operation of the Gen phase. It then calls 
ENTRY CODE GEN to produce the object head- 
ing code and PROLOGUE GEN and EPILOGUE GEN 
for the required prologues and epilogues. 
On return from EPILOGUE GEN, START GEN 
falls through to GEN PROCESS. 

GEN PROCESS (G0492) controls the repeti- 
tive operations of Gen. It first calls GET 
POLISH, which moves the Polish notation for 
one statement from the AFTER POLISH roll to 
the POLISH roll. Using the Polish notation 
just moved, GEN PROCESS determines whether 
the statement to be processed was labeled; 
if it was, the routine LBL PROCESS is 
called. If the source statement was not 
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labeled, or when LBL PROCESS returns, GEN 
PROCESS calls STA GEN and STA GEN FINISH. 
On return from STA GEN FINISH, GEN PROCESS 
restarts. 

The termination of the Gen phase of the 
compiler occurs when an END statement has 
been processed. END STA GEN jumps directly 
to TERMINATE PHASE after the object code is 
produced, rather than returning to GEN 
PROCESS. TERMINATE PHASE is described in 
Chart EG and in the accompanying text. 

ENTRY CODE GEN, Chart EA 



ENTRY CODE GEN (G0499) first determines 
whether the source module is a subprogram. 
If it is not, the heading code for a main 
program is placed on the CODE roll, the 
location counter is adjusted, and the rou- 
tine returns. 

If the source module is a subprogram, 
ENTRY CODE GEN determines the number of 
entries to the subprogram, generates code 
for the main entry and for each secondary 
entry and, when all required entry code has 
been produced, it then returns. 



PROLOGUE GEN, Chart EB 



PROLOGUE GEN (GO 504) processes the main 
entry and each additional ENTRY to the 
source subprogram, producing the required 
prologues. Prologue code transfers argu- 
ments as required and is, therefore, not 
produced if no arguments are listed for the 
ENTRY. The prologue code terminates with a 
branch to the code for the appropriate 
entry point to the subprogram; in prepara- 
tion for the insertion of the address of 
that entry point, this routine records the 
location of the branch instruction on the 
ENTRY NAMES roll. If the source module is 
not a subprogram, PROLOGUE GEN exits. 



E£IIiOGUE_GEN 1 __Chart_EC 



AFTER POLISH roll to the POLISH roll. The 
Polish notation is moved from the beginning 
of the AFTER POLISH roll, and a pointer is 
maintained to indicate the position on the 
roll at which the next statement begins. 

Note : Unlike the other rolls, data from 
the AFTER POLISH roll is obtained on a 
first-in first-out basis (i.e., the EASE 
rather than the BOTTOM pointer is used) . 
This is done to maintain the sequence of 
the source program. 



LBL PROCESS, Chart EF 



LBL PROCESS (G0493) stores the label 
pointer left on the WORK roll by GEN 
PROCESS in STA LBL BOX. It then inspects 
the LBL roll group defining the label, and 
determines whether the label is a jump 
target. If so, the base register table is 
cleared to indicate that base values must 
be reloaded. 

If the label is not the target of a 
jump, or when the base register table has 
been cleared, the AT roll is inspected. 
For each AT roll entry (and, therefore, AT 
statement) referring to the labeled state- 
ment being processed, made labels are con- 
structed for the debug code and for the 
next instruction in line, pointers to these 
labels are recorded on the AT roll, and an 
unconditional branch to the debug code is 
placed on the CODE roll. 

When all AT references to the present 
label have been processed, an instruction 
is placed on the CODE roll to inform Exit 
that a label was present and that a branch 
table entry may be required. Then, if the 
trace flag is on (indicating the presence 
of the TRACE option in the source DEBUG 
statement) , the debug linkage for TRACE and 
the binary label are placed on the CODE 
roll. If the trace flag is off, or when 
the code has been completed, LBL PROCESS 
returns. 



EPILOGUE GEN (G0508) processes the main 
entry and each additional ENTRY to a sub- 
program, producing the required epilogues. 
Epilogue code returns argument values and 
returns to the calling program. If this 
routine determines that the source module 
is not a subprogram, main program prologue 
and epilogue code are produced. 



GET POLISH, Chart ED 



This routine (G0712) moves the Polish 
notation for a single statement from the 



STA GEN, Chart EG 



STA GEN (G0515) uses the control driver 
left on the WORK roll by GEN PROCESS to 
index into a jump table (STA RUN TABLE) , 
jumping to the appropriate routine for 
constructing the object code for the spe- 
cific type of statement being processed. 
This operation is called a "run" on the 
driver; other "runs" occur in Gen for 
building specific instructions or for 
generating data references. 

The names of the code generating rou- 
tines indicate the functions they perform; 



54 



for example, assignment statements are pro- 
cessed by ASSIGNMENT STA GEN, while GO TO 
statements are processed by GO TO STA GEN. 
These routines construct the code for the 
statement on the CODE roll and, when the 
cede is complete, return tc GEN PROCESS. 

END STA GEN processes the END statement 
and provides the normal termination of the 
Gen phase by jumping tc TERMINATE PHASE 
after producing the code. The code pro- 
duced for the END statement is identical to 
that for the STOP statement if a main 
program is being compiled or a RETURN 
statement if a subprogram is being com- 
piled. If an AT statement precedes the 
END, an unconditional branch instruction is 
constructed to return from the debug code 
to the main line of code. 



Table 7. Rolls 


Used 


by Exit 












1 Roll Number 




Roll Name 




| 7 




Global Sprog 




1 ifc 




Temp and const 




1 17 




ADCON 




1 20 




CSECT 




1 -3 




Sprog Ary 




| 38 




Used Lib Function 




1 ^5 




BCD 




| 46 




Base Table 




1 51 




RLD 




1 52 




Branch Table 




1 58 




Adr Const 




1 fe 2 




Code 













TERMINATE PHASE (G054U) prepares for and 
calls the Exit phase of the compiler. 



FLOW OF PHASE 5, CHART 09 



STA GEN FINISH. Chart E H 

STA GEN FINISH (G0U96) determines wheth- 
er the present statement is the closing 
statement of any DO loops; if it is, this 
routine generates the code reguired for the 
CO loop closing and repeats the check for 
additional loops to be closed. 

When all DO closings have been pro- 
cessed, STA GEN FINISH resets pointers to 
temporary locations, clears accumulators, 
and returns to GEN PROCESS. 



PHASE 5 OF THE COMPILER: EXIT (IEYEXT) 



Exit produces the SYSPUNCH and/or SYSLIN 
output requested by the programmer, except 
for the ESD cards and TXT card produced by 
the Allocate phase. It also produces the 
listing of the object module on SYSPRINT, 
if it has been requested by the programmer. 

The description of this phase of the 
compiler is divided into two parts. The 
first of these, "Flow of Phase 5," de- 
scribes the overall logic cf the phase by 
means of narrative and flowcharts. 

The second part of the description of 
the phase, "Output from Phase 5," describes 
the output written by the phase. 

The rolls used by Exit are listed in 
Table 7, and are briefly described in 
context. For further description of rolls, 
see Appendix B. 



The routine EXIT PASS (G0381) controls 
the operation of this phase. After initia- 
lizing, this routine calls PUNCH NAME LI ST 
MPY DATA and PUNCH TEMP AND CONST ROLL. 
The routine PUNCH ADR CONST ROLL is then 
called and, if an object module listing was 
requested, the heading for that listing is 
written out. 



After this operation, EXIT PASS calls 
PUNCH CODE ROLL, records the memory 
requirements for the code, and prints the 
compiler statistics. PUNCH BASE ROLL, 
PUNCH BRANCH ROLL, PUNCH SPROG ARG ROIL, 
PUNCH GLOBAL SPROG ROLL, PUNCH USED LIBRARY 
ROLL, PUNCH ADCON ROLL, ORDER AND PUNCH RLD 
ROLL and PUNCH END CARD are then called in 
order. On return from the last of these, 
EXIT PASS releases rolls and exits to the 
Invocation phase of the compiler. 



PUNCH TEMP AND CONST ROLL. Chart FA 



This routine <G0382> initializes the 
location counter for the temporary storage 
and constant area of the object module. It 
then initializes a pointer to the TEMP AND 
CONST roll and begins the processing of 
that roll from top to bottom. Each group 
on the roll is moved to the output area; 
when the output area is full, a TXT card is 
written. When the entire TEMP AND CONST 
roll has been processed, a jump is made to 
PUNCH PARTIAL TXT CARD, which writes out 
any partial TXT card remaining in the 
output area and returns to EXIT PASS. 
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PUNCH ADR CON ST ROLL f Chart FB 



The information on the ACR CONST roll is 
used by this routine (G0383) to produce TXT 
cards for temporary storage and constant 
area locations which contain addresses. 
RLD roll entries are also produced to cause 
correct modification of these locations by 
the linkage editor. The beginning address 
of the temporary storage and constant area 
is computed. Then, for each ADR CONST roll 
entry, the TEMP AND CONST roll pointer is 
added to that value to produce the address 
at which an address constant will be 
stored. This address is placed in the TXT 
card and on the RLD roll, the address 
constant from the ADR CONST roll initial- 
izes that location, and the area code from 
the ADR CONST roll is placed on the RLD 
roll. (See Appendix B for roll descrip- 
tions. ) 



PUNCH CODE ROLL, Chart FC 



CARD is made; that routine writes out any 
incomplete TXT card which may be in the 
output area, and returns to EXIT P/-.SC. 



PUNCH BASE ROLL, Chart FD 



PUNCH BASE ROLL (G0399) initializes a 
pointer to the BASE TABLE roll and initial- 
izes the location counter to the beginning 
address of the object module base table. 
It then enters each group on the EASE TABLE 
roll into the TXT card output area; it also 
records the object module ESD number and 
the location counter on the RLD roll for 
later production of the RLD cards. 
Whenever the output area is full, a TXT 
card is written. When all groups on the 
BASE TABLE roll have been processed, the 
routine makes a jump to PUNCH PARTIAL TXT 
CARD, which writes out any incomplete card 
in the output area and returns to EXIT 
PASS. 



PUNCH CODE ROLL (G0384) initializes a 
location counter and a pointer to the CODE 
roll. Inspecting one group at a time, it 
determines the nature of the word. If it 
is a statement number, PUNCH CODE ROLL 
simply stores it and repeats the operation 
with the next word. 

If a group is a constant, it is placed 
in the output area for SYSPUNCH and/or 
SYSLIN. This category includes literals 
which appear in-line and, thus, the con- 
stant to be written may occupy several 
groups on the roll. 

Groups representing code are placed in 
the output area and, if an object module 
listing has been requested, the line 
entered into the output area is listed 
before it is punched. The contents of the 
CATA VAR roll are used fcr the listing of 
the operands. 

If the group on the CODE roll is an 
indication of the definition of an address 
constant, the location counter is stored 
accordingly, and the operation of the rou- 
tine continues with the next group. 

PUNCH CODE ROLL also determines whether 
the group is an indication of the defini- 
tion of a label, if it is, the routine 
defines the label on the BRANCH TABLE roll 
as required, inserts the label in the 
output line for the object module listing 
and repeats with the next group on the 
roll. 

When all groups on the roll have been 
processed, a transfer to PUNCH PARTIAL TXT 



PUNCH BRANCH ROLL, Chart FE 



This routine (G0U00) first initializes a 
pointer to the BRANCH TABLE roll, and the 
location counter to the beginning location 
of the object module branch table. When 
these operations are completed, the routine 
inspects the BRANCH TABLE roll from top to 
bottom, making the requisite entries on the 
RLD roll and entering the addresses from 
the roll in the TXT card output area. TXT 
cards are written when the output area is 
full. When all BRANCH TABLE roll groups 
have been processed, the routine jumps to 
PUNCH PARTIAL TXT CARD, which writes out 
any incomplete card in the output area and 
returns to EXIT PASS. 



PUNCH SP ROG ARG ROLL, Chart FF 



PUNCH SPROG ARG ROLL (G0U02) initializes 
a pointer to the SPROG ARG roll and ini- 
tializes the location counter to the begin- 
ning address of the subprogram arguments 
area of the object module. 

The routine then inspects the groups on 
the SPROG ARG roll. If the first word of 
the group contains the value zero (indicat- 
ing an argument whose address will be 
stored dynamically), the group is placed in 
the TXT card output area, and the card is 
written if the area is full. The routine 
then repeats with the next group on the 
roll. 
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If the SPROG ARG roll group does not 
contain zero, the group is then inspected 
to determine whether it refers to a tem- 
porary location. If it does, the correct 
location (address of the temporary storage 
and constant area plus the relative address 
within that area for this location) is 
determined. The required RLD roll entries 
are then made, the address is moved to the 
output area, and PUNCH SFROG ARG ROLL 
repeats this process with the next group on 
the roll. 

If the group from the SPROG ARG roll 
contained neither a zero nor a temporary 
location, the argument referenced must have 
been a scalar, an array. a label or a 
subprogram. In any of these cases, a base 
table pointer and a displacement are on the 
pointed roll. From these, this routine 
computes the location of the variable or 
label or the subprogram address, enters it 
in the TXT card output area, and records 
the RLD information required on the RLD 
roll. The routine then repeats with the 
next group on the SPROG ARG roll. 

This routine exits to EXIT PASS through 
PUNCH PARTIAL TXT CARD when all SPROG ARG 
roll groups have been processed. 



PUNCH ADCON ROLL, Chart FI 



This routine (G0U05) returns immediately 
to EXIT PASS if there is no information on 
the ADCON_rgll. Otherwise, it writes out 
one TXT card for each group it finds on the 
roll, obtaining the area code, the address 
constant, and the address of the constant 
from the ADCON roll. The ESD number and 
the address of the constant are placed on 
the RLD roll for subsequent processing. A 
TXT card is punched containing the con- 
stant. The operation of PUNCH ADCON ROLL 
terminates when all groups on the roll have 
been processed. 



ORDER AND PUNCH RLD ROLL. Chart FJ 



This routine (G0U16) sorts the RLD roll 
and processes the groups on that roll, 
producing the object module RLD cards. The 
card images are set up, and the RLD cards 
are actually written out as they are com- 
pleted. When all information on the roll 
has been processed, this routine returns to 
EXIT PASS. 



PUNCH GLOBAL SPROG R OLL, Chart FG 



P"NQS_END_CARD i __Chart_FK 



This routine (G040 3) first inverts the 
GLOBAL SPROG roll and moves one word from 
that roll to the WORK roll. If these 
actions indicate that there is no informa- 
tion on the roll, the routine exits. 



PUNCH END CARD (G0U2U) produces the 
object module END card. It moves the 
required information into the card image 
and initiates the write operation; it then 
returns to EXIT PASS. 



ior eacn group on tne GiaDBajl. 
SPROG roll, this routine enters the ESD 
number for the subprogram and the location 
at which its address is to be stored on the 
RLD roll. The routine also writes a word 
containing the value zero for each subpro- 
gram listed (these words become the object 
module subprogram addresses region). When 
all groups on the GLOBAL SPROG roll have 
been processed, the routine exits through 
PUNCH PARTIAL TXT CARD, which writes out 
any incomplete card remaining in the output 
area before returning to EXIT PASS. 



PUNCH NAMELIST MPY DATA. Chart FL 



This routine (G056U) is responsible for 
the punching of TXT and RLD cards for those 
words in the object module NAMELIST tables 
which contain pointers to array dimension 
multipliers. The multipliers themselves 
are placed on the TEMP AND CONST roil. The 
required information is found on the 
NAMELIST MPY DATA roll; when all groups 
have been processed, this routine returns 
to EXIT PASS. 



PUNCH USED LIBRARY ROLL. Chart FH 



OUTPUT FROM PHASE 5 



(GOUOU) perforins the same 
USE D L IB FUNCTIO N roll 



This routine 
function for the 
that the previous routine performs for the 
GLOBAL SPROG roll, thus completing the 
subprogram addresses region of the object 
module. The techniques used for the two 
rolls are identical. 



Four types of output are produced by the 
Exit phase of the compiler: TXT cards, RLD 
cards, the object module listing, and the 
compiler statistics. The cards are pro- 
duced on SYSPUNCH and/or SYSLIN, according 
to the user's options. The listing, if 
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requested, is produced on SYSPRINT. The 
compiler statistics for the compilation are 
produced on SYSPRINT. 



The formats of the TXT and RLD cards are 
described in the publication IBM System/ 360 
Oper a ting System: Linkag e Editor Program 
Logic M anual. The object module listing 
consists of the following fields: 



The compiler statistics are the final 
output from phase 5. The formats for the 
messages which provide compiler statistics 
for the compilation are as follows: 

♦OPTIONS IN EFFECT* option! , option) .. . 
•OPTIONS IN EFFECT* option! , option) .. . 
♦STATISTICS SOURCE STATEMENT5=nnnnnnnn lt 
PROGRAM SIZE=nnnnnnnn 2 

and 



Location, which is the hexadecimal 
address relative to the beginning of 
the object module control section, of 
the displayed instruction. 



Statement number (entitled STA NUM), 
which is the consecutive statement 
number assigned to the source module 
statement for which the displayed 
instruction is part of the code pro- 
duced. This value is given in decimal. 



• Label, which is the statement label, if 
any, applied to the statement for which 
the; code was produced. The statement 
label is given in decimal. 

• Operation code (entitled OP), which is 
the symbolic operation code generated. 

• Operand, which is given in assembly 
format but does not contain any vari- 
able names. 

• Operand (entitled ECD OPERAND), which 
contains the symbolic name of the vari- 
able referred to in the source module 
statement which resulted in the code. 



♦STATISTICS* NO DIAGNOSTICS GENERATFD 



♦STATISTICS* nnn DIAGNOSTICS GENERATED, 
HIGHEST SEVERITY CODE IS n 

where : 

nnnnnnnn x is the number of source state- 
ments expressed as a decimal 
integer. 

nnnnnnnn 2 is the size, in bytes, of the 
object module expressed as a 
decimal integer. 

nnn is the number of diagnostics 
generated expressed as a decimal 
integer. 

n is the condition code. 

The first statistics message (giving 
source statements and program size) is 
suppressed whenever a BLOCK DATA subprogram 
is compiled; however, the two options-in- 
effect messages and one of the other statis- 
tics messages will still appear. 
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Chart 00, IEYPORT (Part 1 of 4) 
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Chart 01. IEYFORT (Part 2 of 4) 
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Chart 02. IEYFORT (Part 3 of 4) 
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Chart 03. IEYFORT (Part * of 4) 
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Chart AA. OPTS CAN 
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Chart AB. DDNAMES 
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Chart AC. HEADOPT 
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Chart AD. TIMEDAT 
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Chart 4. 1. PHASE 1 - PARSE (Part 1 of 2) 
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Chart 04.2. PHASE 1 - PARSE (Part 2 of 2) 



***** 

♦Ot.2* 
* B2* 

* * 



XTEND < 
LBL ROLL 
.RESERVED . < 



*•♦» 
► C2 »-> 



► REMOVE 

► GROUP FROM 
►XTEND LB I. ROLL 
> 

»•***•*•••*••*«< 



*******....».*«< 



XTEND 

LBL ROLL 

EMPTY 



»063188 

««»»»D«*«*»»»»»»' 

» SET LOOP < 

» DATE POINTER ' 

>*ON SCRIPT ROLL," 

• RELEASE " 

• IND VAR ROLL < 
***.************i 



REMOVE 
,ROUP FROM 
WORK ROLL 



> B3 * 
• • 

• *♦♦ 



F2 *. 

. ♦ group ». 
tagged as 
possible 

.RE-ENTRY . 
♦.POINT.* 
• . .» 
♦ YES 



PUT 

GROUP ON TEMP 

ROLL 

»*•***••*.**••* 



*♦»* 

♦ C2 ♦ 

* * 
• *»» 



,,t«« F 3. ......... 

• TAG GROUP AS * 

* POSSIBLE • 
•EXTENDED RANGE « 

♦ CANDIDATE ON ♦ 
♦LOOP DATA ROLL ♦ 



TAG THOSE 

LABELS ON LBL 

ROLL WHICH MAY 

BE RE-ENTRY 

POINTS 

*************** 



BLOCK 

DATA 

PROGRAM 



♦SET SYMBOL AND 
♦MODE FOR IBCOM 
♦ ROUTINE CALL 
* 
................ 



****H3********* 
CLEAR TEMP ROLL 
*************** 



*****H(I********* 
* 

♦ MOVE IBCOM 

♦ POINTER TO 

♦ AFTER POLISH 

♦ ROLL 
****•••••*****»* 



**** 

• * 

♦ B3 ♦ 

* * 
• *** 



♦ INITIALIZE 

♦ FOR OPERATION 

♦ OF ALLOCATE 
• 
»»**»**•»••*•*«< 



*«*» Kit ♦**•♦♦♦♦♦ 

> * 

> IEYALL « 

> « 
***••***••**•*• 



Section 2: Compiler Operation 67.1 



Chart BA. 
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Chart BB. INITIALIZE FOR PROCESSING STATEMENT 
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Chart BC1. PROCESS LABEL FIELD (Part 1 of 2) 
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Chart BC2. PROCESS LABEL FIELD (Part 2 of 2) 
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Chart BD. PROCESS STATEMENT 
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Chart BE. COMPLETE STATEMENT AND MOVE POLISH 
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Chart BF. PROCESS END STATEMENT 
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Chart BG. PROCESS POLISH 
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Chart 05. PHAGE 2 - ALLOCATE (Part 1 of 2) 
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•****G3*** *•••••• 

•BLD AD B8-CMA2 • 

• BUILD BASE • 

• TABLE ENTRIES • 

• INDICATED • 



G0M3 V 

•****B3********** 
•PREP MMLST-CQA2* 
•-•-•-•-•-•-•-•-• 

• ALLOC NAME- • 

• LIST TBL ADD • 
•BASES REQUIRED • 



G03»7 V 

•••••J3* ••••••»•• 

•SCALAR ALL COA1* 
•-•-•-•-•-•-•-•-• 

• ALL ALLOC • 

• SCALAR6 AND • 

• REG'D BASES • 



L. 



•ARRAY ALL CNA2 ♦ 

•ALLOCATE ARRAYS* 

• AND ADD HKO'I) • 

• BASES • 



G0002 

»»0t*{iS ********* 

• GBL SPG AL-CDA2 

>• ADD BASES FOR 

• SUBPROGRAM 

• ADDHKIiSt.S 



G0«»2 V 

*****Cj*»******»« 
•SPG ARG AL-CPA2* 
t-»~*-*-*-*-*-»~* 

• 'ALLOCATF* »R". • 

• LISTS, AOD • 

•REOUIRED BASE'J • 



S0«»« 

• ••••Q5» ••••*•••» 

•LIT CNS AL-CRA,!* 

• ALLOC LITERAL • 

• CONSTANTS ADD • 
•BASES REDJIRED • 



TBE ROUTINES 
CALLED IN PASS 
I DETZRMINE 
THE NUMBER OF 
BASE TABLE 
ENTRIES 
REQUIRED 
FOR TBE 
OBJECT MODULE 
DATA, AS 
WELL AS PER- 
FORMING SOME 
INITIAL 
ALLOCATION 



G0»«S V 

***»*g^**t*»*»»* 

•FORMAT ALL C5A2 

• -•-»-»-•-»-•-•- 

• ALLOC FORMAT 

• STMTS. ADD 

• REQ'D BASES 

• ••••••••••••to 



•RESTORE DBr MO0» 
•LOC CNTEK DETM > 
•TRUE SIZE BASE • 
•TABLE, END PAS5» 
• 1 • 



MARK INIT AND 
SOBCSK 
VARIABLES 



G0*03 

•GBL SPG AL CUA2* 
»_♦_♦-•-»-»-•-•-• 

• ALLOC SUBRTN •< 
•ADDR PRINT MAP » 

* PUNCH ESDS • 



G0»37 

•••••US********** 
•B/B TBL AL-CLA2* 
• -•-•-•-•-•-•-*-» 



G0>»2 

•****J4 •••••••••• 

•SP ARG ALL CPA2* 

• -.•-•-•-•.•-•-•-• 

* ALLOCATE •- 
•ARGUMENT LISTS • 



•ALLOC SAVE AREA* 

* BASE TBL AND • 

• BRANCB TABLE • 



G0»<tl 

•*»**J5********** 
•EQUIV MAP CTA2 • 
«-*-•-»-•-•-♦-«-» 
— >• CORRFCT ALLOC • 
•EQUIV DATA AND • 
• PRINT MAP • 



•***K5********* 

> CHART 06 J 

B* , 
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Chart 06. PHASE 2 - ALLOCATE (Part 2 of 2) 



♦ 06 • 

♦ B2 *— t 

♦ ••• ! 
G0397 ♦ 

•••••B2*** •••••• 

•SCALAR MX CHA1 



•CORRECT SCALAR 

ALLOCATION, 

PRINT NAP 



•••••C2********** 
•ARRAY ALL CNA2 • 
♦-»-♦-•-•-»-»-»-♦ 

• CORRECT ARRAY • 

• ALLOCATION, » 

• PRINT HAP • 



G0»05 7 

***»*D2*** ******* 
•BLD NNLST-CVA2 • 

•CONSTR AMD PCH • 

• TXT COS FOR • 

• NAKELIST TBL • 



G0<«* V 

•••••E2*** ******* 
•LIT CHS AL-CRA2* 

• ALLOC LITERAL • 
•CONS AMD PUNCH • 

• TXT CARDS • 



G0M5 V 

•FORMAT ALL CSA2* 

•ALLOCATE FORMAT* 

• STMTS. PTOCB • 

• TXT CARD6 • 



•RELEASE ROLLS, 

• OBTAIN 

• DOUBLEHORD 

• BOUNDARY FOR 

• BASES 



•CALCULATE BASE • 
•AMD DISPLACEMMT* 

• FOR TEMP AND * 

• CONST ROLLS • 



G0»38 V 

•BLD AD BS-CWA2 



•_•-•-•- 



.•-•-*,-• 



BUILD 3 BASES 

FOR TEMP Af.D 

CONST AREA 



76 



Chart CA. MOVF 3LD lJAMES TO DATA VAR ROLL 



♦♦♦»A1***»***** 
ALPHA ♦ 

' LBL AND L * 

> KPRO^S • 

*************** 



VftK KU1.L, titl 

UP POINTER TO 
NiW group on 



SAVE POINTER 

TO LABELS. 

SET UP 

POI NTER 

TO LBL ROLL. 

•*»***»*****«* 



>♦*< 



ENTIRE 

LBL ROLL 

« . PROCE.SSED. 



•♦♦♦F.l •*•••♦•»• 

NOVE NEXT LABEt, 

TO 

DMA VAR ROLL 



ALPHA L SPROG 
»***»02*»*t«*«*« 

* SAVE DATA VAR 
♦ROLL POINTER AS 

>» POINTER TO 

* STATEMENT 
FUNCTION 



»**** 



>♦*♦» 



'♦•»E2******»*» 



♦♦•♦A3********* 

► ALPHA • 

► SCALAR ARRAY J 

»**•"«*»******** 



♦♦**B3********« 

SAVE 

DATA VAR ROLL 

POINTER AS 

POINTER TO 

SCALARS 

**«***««******< 



***»»C3********* 
* 

* „„SET^UP__ 

* SCALAR ROLL 
* 
*****»•****•*»*• 



***** 03 ********** 
*A/D VAR RL-CAF«* 
*-*-•-♦-♦-»-*-*-♦ 
* MOVE * 
♦SCALAR NAMES TO* 
•DATA VAR ROLLS » 



****E3********** 

SAVE DATA VAR * 

ROLL POINTER TO* 

ARRAYS ♦ 



SET UP 
POINTER TO 
ARRAY ROLL 



*-*-*-»-*-*-*-*- 

♦ MOVE 
♦ARRAY NAMES TO 

* DATA VAR ROLL 
♦♦«»**»**«♦**•*< 



-*-*-*-* 



♦MOVE SUBPROGRAM^ 



y 

* ***«C!4»*^»****** 

* SAVE DATA VAR ♦ 
•ROLL POINTER AS* 

* POINTER TO * 

* USED LIBRARY ♦ 

* NAMES * 
**•*•***•*»**«*** 



»»***OU*«»»**»«* 

* 

♦SET UP POINTER 

♦ TO USED LIB 

♦ FUNCTION ROLL 

********••***••* 



• *** 
I * 

> GU ♦ 



****pq********* 

♦ ALPHA TO ♦ 

♦ DATA VAR ROLL ♦ 

***••*»**•»*•** 



.♦ ENTIRE ♦. 

ROLL 

♦.PROCESSED.* 



RETURN < 
************* 



»****H3«******** 

♦ SAVE DATA VAR 
♦ROLL POINTER AS 

♦ POINTER TO 

♦ GLOBAL 

♦ SUBPROGRAM 
**************** 



♦***J3********* 

SET UP POINTER 

TO GLOBAL 

SPROG ROLL 

»****»****••*** 



«»**»HK »♦**•*»*** 
♦MOVE NEXT NAME ♦ 

♦ (8 BYTES) * 

♦ TO ♦ 

♦ DATA VAR ROLL ♦ 

♦ • 
*•**•********»*•* 
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Chart CB. PREPARE EQUIVALENCE DATA 



PREP fQUlV 

ANO PRINT 

ERRORS 



->».EQUI VA LENCE 
*• DATA • 



• CALCULATE 

• OFFSET FOR 

• EQUIVALENCE 

• VARIABLE AND 

• RECORD 



. • ALL ». 

DATA 
PROCESSEO 



._, 



»»*»*C3**** *****' 



• •«• 

• « 

• B2 « 



SET UP • 
HEADING FOR • 
ERROR LIST » 



PRINT LIST OF 
EQUIVALENCE * 
• DEF ERRORS * 



>»G2*****«**< 

RETURN 
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Chart CC. ALLOCATE BLOCK DATA 



•CM ALL/0UT-CIA2* 



•PROG ALLOCATION* 



PUNCH 

QFMATMfMG 

ESDS IF ANY 



•••••C2 •••••••••• 

•SCALAR ALL CMA2* 

• ALLOC SCALARS. • 

• AOO REUUIREO • 

• BASES • 



•ALLOCATE ARRAYS 

• AND 

• REO. BASES 









• 




• 


• 


FLIP 


• 


• 


EQUIVALENCE 


• 


• 


ROLL 


• 


• 




* 



•• INFO •• 
.• GROUP ON « 
•• EQUIVALENCE 
•• ROLL .« 



• 




* 


• 


RECORD 


* 


>* 


NAME + ERROR 


• 


* 


TYPE 


* 


* 




» 



BECAUSE 
ALL EQUIV 
OATA MUST 
BE IN COMMON 



•• «, •••• 

•• MORE ». YES • • 
•.DATA ON ROLL •• >• F2 • 



PRINT 

BLOCK DATA 

ERRORS 
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Chart CD. PREPROCESS DUMMY DIMENSIONS 



PREP DMY DIM 

AND PRINT 

ERRORS 



INIT IALIZE 
POINTER TO 
APPRO ROLL 



• ■•• 
l * 
» C4 • 



ALL 

ARRAYS 

.PROCESSED. 



ANY 
GLOBAL 
DUMMIES 



-> PRINT ERRORS 



"«C5 

RETURN 



.» NEXT ». 
•ARRAY HAVE 

DUMMY 
•DIMENSIONS. 



• D3 *-> 
.... y 
136702 .» 



» END 

OF A DUMMY 
». LIST 



• RECORO MARKER • 

>• ON NAMELIST - » 

» ITEMS ROLL • 



ARRAY 
DUMMY OR 
INCOMMON . 



•«..E3«>. ><.*«« 

CLASSIFY NXT 

DMY IF ANY 
■ITH DMY DIM 
PNTR TO ARRAY 
ON ERROR ROLL 

I 



E« *. 
. • ANY «. 

.•MORE ARRAYS*. NO 

.■ITH DMY DIM .» 

•• IN THIS .* 
••LIST .» 

•*YES 



MORE 

DUMMY 

LISTS 



RECORD 

ARRAY NAME AS 

ERROR 



• CHECK DMY OIM 
•NXT ARRAY-MUST 
•BE DMY IN SAME 
•LIST OR IN COM- 

• MON RCO ERR'S 



■ PREPARE « 
•TO PROCESS NEXT. 
» ARRAY « 
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Chart CE. CHECK FOR UNCLOSED DO LOOPS 



PROCESS 

UU LUU^b 



»»#»#B2 *»*••»*»»# 

• » 

• FLIP THE » 

• DO LOOPS OPEN » 
« ROLL * 



**** 
I • 

> C2 »-> 



• ••• v 
#037101 .». 

C2 •. 
.* DATA *. 
.» ON THE *. NO 

*.D0 LOOPS OPEN.* 

». ROLL .• 



#037102 

»****C 3* ********* 



•SET UP HEADING » 

->» FOR DO LOOPS » 

« ERROR LIST • 



. » 



• MOVE BAD 
•LABEL TO ERROR 

• LBL ROLL 



PRINT 
DO ERROR LIST 



PRINT ERROR LBL 
ROLL 



E2 ». 






V 


. • UNDE- •. 






•»«»E3»»»»»»»*» 


.•FINEO MARK ». 


VES 




• 


. ON LBL ROLL . 


* 1 




• RETURN 


*• .» 


1 




# 


•. . • 


1 






• . . • 


V 






• NO 


»•#• 






1 


• 


• 




1 


• C2 


• 





• SET UNCLOSED 
•DO MARK IN LBL 

• ROLL GROUP 



• ••< 

• C2 
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Chart CF. CONSTRUCT BRANCH TABLE ROLL 



»82 •••••••« 



• C2 •-> 

1037201 



i B* • 

• ••• 



COPY 

TEMP ROLL TO 

LBL ROLL 



» DAT* 

ON THE LBL 
». ROLL 



BL • • 1 



• •«• 

• a* * 



•SET UP HEAOING 

• FOR UNOEFINE0 

• LABELS 



MOVE 

LA8EL TO WORK 

ROLL 



PRINT 

UNDEFINED 

LABEL LIST 



SET FIRST 1/2 
BYTE OF LABEL 
GROUP TO ZERO 



» FLIP « 
•THE LOCAL SPRCG« 
» ROLL • 



F2 •• 

» CLEAR 

» FIRST BYTE OF 

» LABEL 

» GROUP-MOVE TO 

•ERROR LBL ROLL 



• F» •->! 



.• OATA «. 
• ON THE • 

LOCAL SPROG 
». ROLL . • 



• COPY THE • 

• COMMON DATA • 
->• TEMP ROLL TO • 

•THE LOCAL SPROG* 

• ROLL • 



•.TARGET LABEL •• 1 



MOVE NEXT 

GROUP TO 

CENTRAL AREA 



• H3 •->( 



••••G5»»*»»»»« 

» RETURN 



•MAKE NEW BRANCH* 
» TABLE ROLL • 

• ENTRY ANO • 

• RETURN PTR • 
' TO IT • 



• • 


•••H*»» 


•••••••* 


•MAKE NED 


BRANCH* 


• 


TABLE 


»OLL • 


• 


ENTRY 


ANO • 


* 


RETURN 


PTR • 


• 


TO 


IT • 



THE TAG 
FIELD OF THE 
POINTER STILL 
INDICATES THE 
TYPE OF LABEL 



• REPLACE • 

• LABEL GROUP • 
•WITH POINTER TO» 

• BRANCH TABLE • 



» PUT POINTER 
•ON COMMON DATA 
» TEMP ROLL 



• K3 •-> 



MOVE 
GROUP TO TEMP •• 
ROLL 



n 

v 

• C2 
• •*< 
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Chart CG. ALLOCATE HEADING AND PUNCH ESD CARDS 



INITIALIZE 



PUNCH 
PROGRAM NAME 
» AS LD ESD 



.• DATA « 
ON ENTRY 
NAMES 
. ROLL 



• SET UP 

• PROGRAMMER 
->»SPECIFIEO NAV 

• IN CENTRAL 



» ADD 
» LENGTH OF 
» INITIAL PROG 
►CODE TO PROGRA 
• BREAK 



•FLIP THE ENTRY 
•NAMES ROLL AND 
•MOVE ONE GROUP 
• OFF 



• ••••^•••••••••> 

• SAVE • 
•GROUP ON COMMON* 
•NAME TEMP ROLL." 

• ADO BLANKS TO • 

• NAME • 

I 



♦ ••• 

1037*02 

•••••G2< 



• E« •-> 

• ••• v 

1037405 .» 



DATA LEFT 

ON ENTRY 

NAMF S 



HOVE GROUP TO 

CENTRAL AND 

COMMON NAME 

TEMP ROLL 



» COPY 
» COMMON NAME 
» TEMP ROLL TO 
•ENTRY NAME ROLL 



PUNCH ANY 
REMAINING ESD 
• CARDS « 



•NAME. AOO ENTRY" 

• CODE TO PROG ■ 

• 8REAK ' 



PUT PROGRAM 

>4AME IN PUNCH 

BUFFER 



PUT 

ESD IN 

BUFFER-PUNCH 

» IF COMPLETE 

CARD 

I 



PUNCH REMAINING 
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Chart CH. CHECK ASSIGNMENT OF FUNCTION VALUE 



•••• 

• 8* • 



■ RETURN 



• COPV THE 

• COMMON 
•NAME TEMP ROLL 

• TO THE ENTRY 

• NAMES ROLL 



••A SUBROUTINE 



»C3********" 

RETURN 



PUT A MARKER 

SYMBOL ON 

EQUIVALENCE 

ROLL 



» FLIP 

■THE ENTRY NAMES 

» ROLL 



•SET \JP HEADING 
> FOR FUNCTION 
» ERROR LIST 



• E2 »-> 

• ••• 
1037601 



» DATA ON 

THE ENTRY 
•NAMES ROLL 



RY .• 1 



PRINT 

FUNCTION 

ERROR LIST 



PRINT 

ERROR SYMBOL 

ROLL 



•MOVE NEXT GROUP* 
• TO THE COMMON • 
•NAME TEMP ROLL • 



SCALAR 

KITH SAME 

NAME 



SET MODE 

}F SCALAR IN 

POINTER 

























• 




• 


• 


REGISTER 


NAME 


• 


• 


PUT POINTER 


• 




OF ENTRY 


FOR 




•ON COMMON NAME 


• 




ERROR LIST 






TEMP ROLL 




* 






* 


• 




• 




1 

1 
1 
1 
V 








1 

V 




* 


AOO 




. 


• 




• 


• 


SCALAR ROLL 


» 


• 


AOO SCALAR 


• 


•GROUP FOR 


ENTRY* 


•TO EQUIVALENCE 






NAME - DEFINE 




• 


ROLL 




• 






* 


• 




• 



ALL ENTRY NAMES 
TO A FUNCTION 

ARE 
EOUIVALENCEO 
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Chart CI. COMMON ALLOCATION 



INIT I AL IZE 

FOR COMMON 
AL1 OCATION 



ANY 
^ON ROLL 



•NA 


MOVE NtXT * 

ME TO COMMON • 

AREA ROLL • 



= ROM TFMP 



PUNCH 
f SD CARD FOR 
» BLOCK 



END OF 

DATA FOR 

BLOCK 



• MORE • 

BLOCK NAMES 
». ON ROLL . • 



». MAP OPTION 



ALHIAOT ON 

C (JMMON 
Al I OCA I ION 

)l I t NO I t A T [ S 



■ NEXT • 

VARIABLE IN 

■. ANOTHER .• 

• .BLOCK. » 



» Hf CORD 
•NAME AS COMMON 
» ERROR 



ALLOCATE ■ 

STORAGC FOR « 

VARIABLE. RE- « 

CORD ON GfN'L • 

ALLOC AT ION ROLL- 



•• NAME SAME ' 

•AS LAST NAME 

••ALLOCATED.' 



ay block 

AND OAT* 
I 1 MP ROL L 



PRINT 
MCAOING FOR 

«IAP OF BLOCK 



.....Oa ••••••••■ 

» COPY CTN'L 
» ALLOCATION 
•ROLL T'l COMMON 
» Al LOCAT ION 

» ROLL 



PRI NT 

ERRORS FOR 

SLOCK 



> COMMON 
•ALLOCATION 
■ OUTPUT 



■-turn tc 
PRECESS ne » 
COMMON BLOC 
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Chart CK. EQUIVALENCE DATA ALLOCATION 



EQUI V. 
ALLOCATION 
PRINT ERROR 



CLEAR 

OBJECT 

MODULE 

LOCATION 

COUNTER 



:~i<- 



• ALLOCATE ALL • 

• SETS WITH • 
•NAMES LISTED ON* 
•GEN ALLOC. ROLL • 

• ♦ MOVE INFO • 



• C5 • 

• ••* 



FLIP 
EQUIVALENCE 

ROLL AND 
INITIALIZE 



SAVE LOCATION 

CNTR AS FIRST 

ADDRESS AFTER 

EOUIV DATA 



• 02 *->| 



INTEGRATE 



.• DATA •• N 
.TO PROCESS 0N.»- 
». ROLL . • 



PRINT 

EQUI V 

ERRORS 



PRESENCE ON 
GENL ALLOC 
ROLL INDICATES 
THIS 



ENTRY 
ALLOCATED 
. BEFORE 



•• CONFLICT ». M 
->*.«ITH PRESENT .*- 
*. SET .• 



• INCREMENT 
•PROJECT MCOULE 

• PROGRAM BREAK 



»E5«»»»« 

RETURN 



I03SS03 V 

*****F2*»******* 

• ALLOCATE 

• ABSOLUTE ADDR 

• RECORD ON CEN 

• ALLOC ROLL 



■ ItttFJlxitim 

• RECORO 
•NAME FOR ERROR 
» LIST 



•COPY INFO GENL 
» ALLOC ROLL TO 
» SOURCE ROLL 



• INCREMENT • 
•PTR TO GET NEXT* 

• GROUP • 



• MAKE FINAL « 
•ALLOC AND MOVE « 
» INFO TO EOUIV • 
•ALLOC ROLL FROM« 
» GEN ALLOC « 



• ••• 

• * 

• 02 • 
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Chart CL. SAVE AREA, BASE AND BRANCH TABLE ALLOCATION 



• BASE AND 

• BRANCH TABLE 

• ALLOCATION 



•SAVE BASE TBL. 
» PTR AND 
» DISPLACEMENT 
» FOR START OF 



INCREASE 

PROGRAM BREAK 

bT SAVE AREA 

SIZE 



IS USEO 

TO MOLD OBJECT 
MODULE ADDRESSES 
BEING ALLOC. 



• SAVE BASE TBL 
•PTR AND DISPLA- 

• CEMENT FOR 

• START OF BASE 

• TABLE 



INCREASE 
PROGRAM BrfEAK 
BV BASE TABLE 



CONSTRUCT 
REQUIRED BASE 
TABLE ENTRIES 



BUILD 

ADDITIONAL 

BASES 



SAVE BASE T8L 



•••••H2*«**o«**« 

•INCREASF PROG. 
» BREAK BY 

• SIZE BRANCH 
•TABLE AND MAKE 

• LABEL ENTRIES 



CONSTRUCT 
REOUIREO BASE 
TABLE ENTRIES 



BUILO 

ADDITIONAL 

BASES 



• •••K2«»»« 

» RETURN 
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Chart CM. ALLOCATE SCALARS 



•••• 

» J2 •<— l 



G0397 

« • 

• SCALAR ALLOCATE*- 

•••••••••••••ft* 



->• INITIALIZE 



.• ALL •. NO 

SCALARS •• 

•.PROCESSEO.* 



•••••##•••#•#•••• 



.DUMMY SCALAR 



->».CALL BY NAME 



• ••• 

* l 

• 02 « 







• 02 » 








• * 








I 




#039707 


1 

V 




• ••• 


*02* # ****** 


»• 


* 






• 


• 




SET 


• 


« 


MODE OF NEXT 


* 


• 




SCALAR 


• 


• 






• 



• ALLOCATE FULL • 

• WORO SCALARS- • - 
•RECORD AND MAP • 

• • 
••••••••••••••••• 



• ALLOCATE HALF 

->• MORO SCALARS- 

•RECORO ANO MAP 



• ALLOCATE 
->• BYTE SCALARS- 
•RECORD AND MAP 



»«D5 •»••••••• 

RETURN • 



MOTE I- 

TMESE QUESTIONS 

SEPARATE 8 AND 

16 BYTE 

VARIABLES 



••COMPLEX MODE 



• ALLOCATE 
->• STORACE AND 

• RECORD. PRINT 

• MAP 



NOTE 2- 

IF DURING PASS 1. 
NO MAP IS PRINTED 
AND ALLOCATION IS 
NOT RECORDED FOR 
COMMON AND EQUI- 
VALENCE SCALARS. 
INFO IS PICKED \)P 
FROM OTHER ROLLS 



DOUBLE 
PRECISION 
. MOOE 



SEE NOTE 1 
YES 



• •#• 

• • 

• K2 • 



•.SHORT INTEGER.*- 



MOVE GROUP TO • 
HALF MORO 
SCALAR ROLL 



n 



• K2 « 

• . • 

• ••• 



.SHORT LOGICAL.*- 



• ••• 

• • 

• J2 •-> 



• MOVE GROUP 
->»T0 BYTE SCALAR • 

• ROLL 



~1 



• ••• 

• • 

* K2 • 



MOVE GROUP TO • 

FULL WORO • 

SCALAR ROLL • 



• ••• I 

• • J 

• K2 •->( 



» PREPARE • 
•TO PMOCESS NEXT* 
• SCALAR • 



• A3 • 

• • 
•••• 



€8 



Chart CN. ALLOCATE ARRAYS 



* INITIALIZE 



■ *•• j 








* * 1 








* C2 •-> 








• * ( 








*••# y 








1040101 .*. 


140104 














• * * • 








.* ALL *. YES 


» 


PRINT 


* 


••PROCESSED.* 


• 


LINE 


* 


*• • * 









• • NEXT • • 

.» ARRAY IN •• YES 

■ COMMON EQUIV..* 1 

••OR DUMMY .» 



» ALLOCATE « 
» STORAGE AND • 
■RECORD LOCATION" 



• ENTER • 

• INFO IN ARRAY • 

• MAP, PRINT • 

• COMPLFTF LINE • 



•RECORD BASE PTR« 
•AND DISPLMT IN • 
• CENTRAL • 



• H2 •-> 
1040102 •• 



•• PASS 



'..•• : n 



• K2 •-> 

1040103 



» PREPARE 

•TO PROCESS NEXT* 

» ARRAY 



in 
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Chart CO. ADD BASES FOR SUBPROGRAM ADDRESSES 



• PASS 1 GLOBAL 
•SPROG ALLOCATE 



ALIGN TO 
FULL XORO 
BOUNDARY 



•DETERMINE BASE • 

• PTR AND • 

• DISPLACEMENT • 
•FOR PRESENT LOC» 



•••••D2*««««««»4 

* COMPUTE 

* LENGTH OF 

* OBJECT MODULE 
•SUBPROGRAM ADR 



«»»»»E2»»»»»»»»* 

•COMPUTE LENGTH 

• OF OBJECT 

• MODULE 

• SUBPROGRAM 

• ADDR 



BUILD 

ADDITIONAL 

BASES 
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Chart CP. 



ALLOCATE SUBPROGRAM ARGUMENT LISTS 
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ALLOCATION 



ZERO ** ^ 
ARGUMENTS . *- 
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». .« 
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Chart CQ. PREPARE NAMELIST TABLES 
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». ROLL .« 
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• ROLL 
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REGISTER • 
VARIABLE AS A *- 
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Chart CR. ALLOCATE LITERAL CONSTANTS 
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NEXT GROUP ON 

ROLL 



•• PAUSE •• 
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POINTERS 
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• PROGRAM BREAK • 
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•DETERMINE BASE 
» PTR AND 
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• . .ft 
ft • . * 
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1 
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• PTR 
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ft 
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Chart CS. ALLOCATE FORMATS 



BUILD FORMATS 



• SET 

* POINTER TO 
» FORMAT ROLL 
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»*»*D2 # * »•*•••« 
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SAVE POINTER 
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FORMAT 

GROUP 
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» TXT CARD 
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• PROGRAM « 
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» IN FORMAT • 



• OBTAIN « 
•NUMBER OF WORDS* 

• FOR FORMAT • 



..-•■~1 



•••••F3><*<**«*< 

•CALCULATE BASE 
• ANO 

■ DISPLACEMENT 
» FOR FORMAT 



•••G2»»«»»»»« 

MOVE FORMAT 
TO OUTPUT 

AREA PUNCH 

IF CARD 

COMPLETE 



• REBUILD 

• FORMAT ROLL 
•WITH BASE PNTR 



PRINT FORMAT 
MAP. IF 
• OPTION 
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Chart CT. MAP EQUIVALENCE 



» ANY « 

EQUIVALENCE 
•. DATA .« 



»B3»«»*« 

RETURN 



PRI NT 

HEADING FOR 

EQUIV MAP 



«****02*******>>* 

•OETERMINE DELTA* 
•FOR EQUIVALENCE* 
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* ECU IV • 
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DATA I HOLDS 
THE ADDRESS 
OF THE 
VARIABLE 



.•DATA ON*. 
» EQUIV 

ALLOCATION 
>. ROLL 



t«*G2»**««*« 

MOVE NEXT 
GROUP TO 
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•••»*F3»»»»»»«« 

• COPY 

• COMMON NAME 

• TEMP ROLL TO 

• EQUIV ALLO- 

• CATION ROLL 



»«***G3******** 



» ENTER INFO IN • 

• MAP. PRINT IF • 

• LINE COMPLETE • 



PRINT 
PARTIAL LINE 
» OF MAP 



•DETERMINE BASE 
» POINTER AND 
» DISPLACEMENT 
> FOR VARIABLE 



••••J3»»»»" 

» RETURN 
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Chart CU. 



ALLOCATE SUBPROGRAM ADDRESSES 



FLIP THE 

GLOBAL SPROG 

ROLL 



> DATA ON •. NO 

THE GLOBAL • • 

». SPROG . • 
•.ROLL . • 



#0*0303 

««*ft«C3**«*»**« 

• COPY COMMON 

• OATA TEMP 
>• ROLL TO 

• GLOBAL SPROG 

• ROLL 



• FLIP 
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» TO CENTRAL 
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• ••» v 
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•• ROLL .» 
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• OATA TEMP 
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• USED LIB 

• FUNCTION ROLL 

' 



»E3***«»«* 
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LINE OF SPROG 
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• ALLOCATE 

• STORAGE FOR 
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» ( PRINT LIST ) 
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I 



MARK GROUP 

FOR INLINE 

FUNCTION 
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PARTIAL ESD 
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» PUT GROUP 
•ON COMMON DATA 
• TEMP ROLL 



••••GS»»«»« 
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» ALLOCATE 

• STORAGE FOR 
•AOOHESS RECORD. 
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• PUNCH ESD 

I 



» PUT GROUP 
•ON COMMON DATA 
• TEMP ROLL 
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Chart CV. BUILD AND PUNCH NAMELIST TABLES 
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TABLE 
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NAMELIST 

NAMES 
••ROLL . • 



MOVE FIRST 4 
WORDS OF 
ITEM ENTRY 

TO CODE ROLL 
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NAMELIST NAMES 
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ALLOCATION 
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THE NAMELIST 
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FOR NAMELIST 

• MAP IF « 
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» DIMENSION • 
•FACTORS TO CODE" 
» ROLL « 



E2 •. 

•• DATA • 
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NAMEL 1ST 
. NAMES 

••ROLL .• 



COPY COMMON 

DATA TEMP 

ROLL 

TO NAMELIST 

NAMES ROLL 



• F2« 



ENTER NAME 4 

LOC IN MAP 

LINE PRINT 

» IF LINE 

COMPLETE 

I 



PUNCH AND PRINT 

» REMAINING « 
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• REQUESTED * 



PUT BASF ANO 
DI SPLACEMENT 



MOVE NAMELIST 

NAME AND 2 
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CODE ROLL ANO 

OUTPUT 

I 



••DATA ON*. 
• NAMELIST 
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». ROLL 
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ANSWFR IN- 
DICATES EITHER 
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Chart CW. BUILD BASES 



BUILD 

ADDITIONAL 

BASES 



• ••• I 

* * 1 
» B2 »->| 

• ••• | 

V 
•••••B2 •••••••••• 

» » 
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•PRESENT PROGRAM* 
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»»»»C3»»»»»»»»» 
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•••••02««««««««»« 
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• ••• 

• ' • 

• 82 » 

• • 

• ••• 
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Chart CX. DEBUG ALLOCATE 



• MOVE 

• VARIABLE NAME 
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» CENTRAL AREA 



.» DATA ». NO 

ON SUBCHK .* 

»• ROLL .* 



MATCHING 
GROUP ON 
. SCALAR 
•.ROLL •• 
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> VARIABLE NAME 
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.» MATCHING ». N 
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••DMY ROLL .» 
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. ARRAY 
••ROLL .• 
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GROUP 



» SET 

•THE SUBCHK BIT 
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. ARRAY 
••ROLL •• 



.» MATCHING «. NO 

•GROUP ON GLOBAL" 1 

».OMY ROLL .* | 



t*#IH3* »»»#*»»i 

SET THE SUBCHK 
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ARRAY ROLL 

GROUP 



» SET 
•THE INIT BIT 
•THE GLOBAL Oh 
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Chart 07. PHASE 3 - UNIFY 
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START UNIFY 



» RELEASE 
•PROGRAM SCRIPT 
» ROLL 



REF AL-DAA2" 



» SET UP • 
» POINTER TO » 
•ARRAY REF ROLL • 
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PROGRAM 

SCRIPT 

••ROLL ." 



•••••C3«**»**»*« 
•COPY AREA FROM 
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••••C5«»«»«»« 
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• ADDR CONST 
> OBA2 
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•PROGRAM SCRIPT 
» ROLL 



• SET REG RUNG = 
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» POINTER 



MOVE NEXT 
GROUP FROM 
SCRIPT ROLL 
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•CNVT/FORMT-DCA2* 

#-•-•-»_•_•_#_•_« 

• CONSTRUCT • 

• INSTRUCTION • 

• FORM. FOR REG2 • 



'• I 



• REPLACE « 
•GROUP ON SCRIPT' 

• ROLL • 



GO I I 2 V 

•CNVT/FORMT-DCA2« 

•CONSTRUCT INST • 
» FORMAT FOR • 
• REGISTER 2 • 



•DO NEST UN,DOA2« 

• PROCESS • 

• NEST OP • 

• LOOPS • 



. • LOOP TEMP ». 

•CNTS REQ LOOP. 

••TEMP CNT .» 



■ SET REQ LOOP • 
■TEMP CNT = LOOP* 
• TEMP CNT • 



Chart DA. BUILD ARRAY REP ROLL 



G0l*5 



ARRAY REF « 
ROLL < 

ALLOTMENT « 



GET 
• SEGiNNING 
► ADDRESS OF 
►ARRAY REF ROLL 



>C2< 



• GET ADDRESS 

• OF PARSE SAVE 
» AREA 



GET NUMBER 
OF ARRAY REF 
ROLL ENTRIES 



D3 
.•NO. OF ». 
i ENTRIES 
EQUAL ZERO 
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»»»»D4*»»«*»»»« 

• < 

,X» RETURN < 



#14 501 



>E2< 



> LOAD GROUP 
'INDICATED WITH 
'INITIAL ZEROS 
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NEXT E.TKY 

POINT ON ROLL 



F3 
.* ALL •. 

ENTRIES 
PROCESSED 



►F*»«««« 
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> E2 « 

t 1 

• • »* 
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Chart DB. MAKE ADDRESS CONSTANTS 



= OR dASE ( I VtN 

CODE 

01 SPLACEMENT ) 



•SET UP POINTER 

• FOR LOOP 

• CONTROL ROLL 



.•GRP CATCHES*. 

.ON AOR CCNST . 

». ROLL .* 



• C2 •-> 
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• ••« v 
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i •###C3» ••••#••« 
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» FOR GEN 



•SET POINTER TO 
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•AOR CONST ROLL 
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• PLACE BASE AS 
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• CONST ROLL 
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• TEMP LOC FOR 
•LOOPS BY « ANO 
» PUT ON ADH 
» CONST 

I 
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TEMP ANO 

CONST 
••ROLL .« 



• REPLACE 3ASE 

• KITH TEMP PTR 
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• CONTROL ROLL 



.• WORD •. 
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OR LARGER 

. THAN 
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DOES NOT 
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AREA CODE 

AND DISPLACEMENT 

INDICATING A 

NEED FOR A 

TEMPORARY 
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Chart DC. CONSTRUCT INSTRUCTIONS 



•<««A2 ********* 
► CONVERT TO ' 
l INST FORMAT * 



•••••B2********* 

* GET 

* REG RUN OFF 
•ARRAY REF ROLL 

* FROM POINTER 
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REG. NOTED .* 
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»•»»* • ••• •* 
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I 4 
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• ••* 
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• ••• I 
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4 
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Chart DD. PROCESS NESTED LOOPS 
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INDICATOR 



» PLACE NEST 
■ LEVEL ON 
•PROGRAM SCRIPT 
" ROLL 
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Chart 08. PHASE 4 - GEN 
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PROCESS 



GO/12 V 

• ••••F2««»»»«»» 

•GET POL ISH EDA2 



MOvr POLISH 
FOR STMT TO 
POLISH ROLL 
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"I 



Section 2: Compiler Operation 105 



Chart EA. GENERATE ENTRY CODE 
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Chart EB. PROLOGUE CODE GENERATION 
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Chart EC. 
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Chart ED. MOVE POLISH NOTATION 
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• FOR AFTER • 

• POLISH ROLL » 



i < 

• RETURN « 
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Chart EF. PROCESS LABELS 



L8L PROCESS 
I 



• STORE POINTER « 
•TO LABEL IN STA« 
> LBL BOX « 



•MAKE LABEL FOR 
•DEBUG CODE-PUT 
•BRANCH ON CODE 
» ROLL 



DATA 
ON AT 
ROLL 



•PUT POINTER TO 

• MADE LABEL ON 

• AT ROLL-WORD 
' 2 OF GROUP 



JUMP TARGET 



■••••03. «..••••• 

• MAKE LABEL 
•FOR NEXT INST- 
» RUCTION - PUT 

• LABEL CODE ON 
» CODE ROLL 



PUT DEBUG 

LINKAGE FOR 

TRACE ON CODE 

ROLL 



CLEAR THE 

BASE REGISTER 

TABLE 



=>UT POINTER TO 

MADE LABEL ON 

AT ROLL-WORD 

3 OF GROUP 



PUT BINARY 
LABEL ON 
COOE ROLL 



PUT LABEL 

CODE ON CODE 

ROLL 



CLEAR WORD 1 

OF AT ROLL 

GROUP 



* J2 •-> 

«••• v 

#«9302 .« 



FIRST WORD 
OF AT ROLL 
CROUP IS 
COMPARED WITh 
STA LctL BOX 
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Chart EG. GENERATE STMT CODE 



> TERMINATE < 



B2 ». 

_• STMT *s 
.•FUNCTION 
». MADE LABEL 
*. PTR = . 



• PREPARE 
•FOR EXIT PHASE 



• . 



• • • 
C2 •. 
•• STMT ». 
.» FUNCTION 
». DRIVER ON 
». WORK 

*• •* 



• *• •* 

•09 • 

• A2* 



TO PHASE 
EXIT 



•«»»«D2»»»»»»»«»» 

• BUILD • 

• CODE FOR • 

• STATEMENT • 

• FUNCTION MADE • 

• LABEL • 



#05 



502 V 

••••E2»«»»*»«»»« 

GENERATE • 
CODE FOR • 
STATEMENT • 



THE JUMP TO 
APPROPRIATE 
CODE GENERATION 
THE CONTROL 
DRIVER IN HO 
AND THE STA 
RUN TABLE. 
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Chart EH. COMPLETE OBJECT CODE 



i * A2 ******** i 
STA GEN 
F INI SH 



« * | 

• b2 *->| 

• *«• v 
#0*9603 .». 

B2 ». 

.• DATA «. 

• » ON DO » . NO 
». LOOPS OPEN •• 

*. ROLL •• 



# » 



• YES 
I 



» » 

» E3 • 



*****C2********** 



• MOVE » 
•GROUP OFF ROLL » 



.» POINTER = *. NO 

.LABFL OF THIS.* 

». STMT .» 



#049601 

»»»»»D3»»»»**»< 



->» REPLACE OROUP » 
* ON ROLL • 



»»« •»E2*' 



t* ** * * ** 



* CONSTRUCT * 
•DO CLOSING CODE* 
» ON COOE ROLL * 

• • 

ft**************** 



• ••• | 
#049602 V 

*****E3**»**»»>«* 

• • 

• RESET TEMP • 

• POINTERS AND • 

• ACCUMULATORS • 

• • 



** ** 

F 4 

1 B2 < 
• • ** 



>F3>>x*l«>l 
RETURN « 
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Chart 09. PHASE 5 - IEYEXT 



EX IV PASS 



I N I T I AI . I 7. F 



•PCH NMLMPY-FLA2 

•PCH MMLIST TBL 

• HORDE HLDNG, 

• POINTER!", 



GO 38,! V 

• PCH TMP/CN-FAA2 



PCH TEMP STGE 

AND CONSTANT 

KREA 



G0383 

•••••E2****'"*** 
•PCH ADCON-FBA2 
».».•-».•-».». •_ 
» PCH RLD CARDS 

• FOR TEMP AND 

• CONST .VPF.A 



. 'OBJECT • 
> LISTING 
REQUESTED 



1 PRINT HEADINf, • 
,FOR LISTING # 



G0«8<i 

•••••H2»»*******« 
•PCH CD RL-»»»» • 

• -»-•-•-•-♦-•_♦_» 

•PCH ALL OBJECT • 

• CODE AND LST • 
•PCH RrO*D ESDS • 



jro* 



•••••J2**»******* 
•RECORD STORAGE » 

* REQUIRED POR • 
•OBJECT MODULE, • 
•PRINT COMPILER * 

• STATISTICS • 



G0399 7 

••••A 3* •♦••♦•«•* 
PCH BSE RL-FOA2* 



PCH OBJ MOD « 

HASE TABLE, REC< 

RLD INFO < 



;n«oo v 

•••**B3*»******** 

-PCH BR RL-rtA2 • 



•record RLD Info* 



;o»02 7 

l»D}(MXMt »• 

>PCH SP ARG-FFA2* 

>-•-»-•-•-»-•-•-• 

'PCH SUBPRGR ARli» 

LISTS RECORD • 

RLD INFO • 



•••••£ 3« ••••••••• 

•PCB GBL SP-FGA2* 

• PCH SUBPRGR • 

• ADDR AND RCD • 

• RLD INFO • 



;o«oa 7 

•PCH LIB RL-PHA2* 

• COMPL SOBPRGR • 

• ADDRESSES AND • 

• RECORD RLD • 



GOMOS 7 

•••••G3*********< 
♦PCH ADCON-riA2 • 

• PCH ADR CONST • 
•AND RECORD RLD • 

• INFO • 



G0U16 

•••••H3* ***••»*•• 
♦PCH RLD RL-FJA2* 
•-•-•-•-•-•-•-•-a 
• PORCH OBJECT • 
•MOD RLD CARDS • 



G0»2» 

•••••J3* ••••••••• 

•PCH END CD-PKA2* 

• PORCH OBJECT • 
•MODULE END CARD* 



•RELEASE ROLLS 



TO INVOCATION 
PHASE 
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Chart FA. PUNCH CONSTANTS AND TEMP STORAGE 



• PUNCH TEMP 
•ANO CONST ROi_L 



• • 

• INITIALIZE • 

• LOCATION • 
•COUNTER AND TXT» 

• CARD • 



•••••C2 •••••■••»• 

• • 

• INITIALIZE • 
•POINTER TO TEMP» 
•ANO CONST ROLL • 

• TOP * 



• ••• 

• • 

• 02 •-> 



• ••• V 
#096201 ••• 

02 < 



ROLL 
PROCESSEO 



PUNCH 

ANY PARTIAL 

CAPO 



PUNCH PARTIAL 
TXT CARD 



INCREMENT 
POINTER 



••••E3»«»««*««« 
i i 

• RETURN « 



•ttttF2*l**ttl*»f 

•MOVE NEXT GROUP* 

• PROM ROLL TO • 

• BUFFER. PUNCH • 

• IF CARO • 

• COMPLETE • 



I 02 < 

> t 

• ••• 
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Chart FB. PUNCH ADR CONST ROLL 



G0383 

•••»A2 ***»***»» 



PUNCH ADR 
CONST ROLL 



•••••B2 •••••••••• 

* DETERMINE BE- * 
•GINNING ADR OF * 
» TEMPORARY STG » 

* AND CONST » 
» AREA * 
••••••••••••••••• 



• ••• i 

* C2 *->( 

* * I 

• ••• v 
#038301 .*. 



.* DATA ». NO 

».ON ADR CONST .* 

* • • * 



t»C3*»»****** 
RETURN « 



»«»»»D2********** 

* INITIALIZE * 

* LOCATION » 

* COUNTER FROM * 

* POINTER AND * 
« BEGINNING ADR » 



•••••E2*********< 

* PLACE AREA « 

• CODE FROM « 
» ADR CONST « 
» ROLL ON « 
» RLD ROLL « 



»»»»»F2****»»**»* 

• • 

• SET LOC CTR » 
•INTO RUNG 1 OF • 
« RLD ROLL * 



I 

V 

|»««G2********** 

PUT LOCATION • 

FROM ADR • 

CONST ROLL » 

IN OUTPUT • 

AREA * 



WO TO TXT CARD 



PUNCH PARTIAL 
CARD 



PUNCH PARTIAL 
TXT CARD 
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Chart FC. PUNCH OBJECT CODE 
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INITIALia 
LOCAT ION 
COUNTER ♦ 
COOE ROLl 
POl NTEfi 

I 



••AODRESS». 
» CONSTANT « 
DEFINITION 



STORE 

LOCATION 

COUNTER 



'DATA STILL 

TO 8E 
». PROCESSED. 



PUNCH ANY 
REMAINING 
•PARTIAL CARD 



• ••••C5«»»»»»»« 

• DEFINE LABEL 

• ON BRANCH 
->• TABLE ROLL 1= 

• NECESSARY PUT 

• IN LIST AREA 



GET 

NF XT 
INSTRUCT ION 



•D3»***«i 

RETURN 



MOVE INSTR TO 

OUTPUT AREA 

■PUNCH IF FULL* 



•n 



.PROGRAM bREAK. 



PUNCH ANY 
REMAINING 
•PARTIAL CARD 



• REINITIALIZE 
•LOCATION COUNTR 

>• TO 1ST FULL 
•WORD AFTER TEMP 

• + CONST AREA 



n 



CONSTANT 



•MOVE TO OUTPUT 
AREA PUNCH IF 
•CARD COMPLETE' 



INSTRUCT ION 



MOVE DATA TO 
OUTPUT AREA 
PUNCH IF 
» COMPLETE 



' .LI ST Ft AG ON 



LIST CODE 



Chart FD. PUNCH BASE TABLE 



G0399 

•«**A2********* 
s PUNCH * 

• BASE ROLL * 

• < 



INITIALIZE 

BASE TABLE 

LOCATION 

COUNTER 

I 



#»»»«C2 < *»*»*»**** 
» • 

» INITIALIZE » 
•POINTER TO BASE* 
« TA3LE ROLL * 



SWEEP BASF 
BRANCH ROLL 



•*»«»D2**** **•»•* 



• INITIALIZE * 
•TXT CARD BUFFER* 



#*###### 


>•••••••• 


*••* 




« * 




» E2 •-> 




»» »» v 


G0400 .». 

E2 ». 
• • * • 


.* Al 

«. ROl 

•.PROCE 


-L ». 
.L .» 

:ssed.» 



* PUNCH » 
-> ANY PARTIAL 
* CARD » 



* INCREMENT * 
•POINTER TO ROLL* 



••••F3»*»**»*»l 
l 
' RETURN 



i •••G2 ••••***••• 

* 

RECORD ESD * 

+ LOC COUNTER • 

ON RLD ROLL • 



•••■*H2*********< 

• i 

• MOVE GROUP TO i 
•BUFFER PUNCH IF< 

• CARD COMPLETE < 



I 

I 
V 

• • * * 
t * 

> E2 • 

> • 
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Chart FE. 



PUNCH BRANCH TABLE 



PUNCH 
BRANCH ROLL 



»«•*•*««***» 



• INITIALIZE 

• BRANCH TABLE 
» LOC COUNTER 



*»**»C2*»****»< 

• 

• INITIALIZE 
» POINTER TO 

• BRANCH TABLE 

• ROLL 



• «>«»02 ** < 



i»»»»»» 



SWEEP BASE 
BRANCH ROLL 



* INITIALIZE » 
•TXT CARD BUFFER* 



* E2 »->| 

• I 

*» » * v 

#040001 .* 

E2 



»**»»»E3*****< 



.* ALL ». YES 

ROLL . » 

». PROCESSED.* 



PUNCH 

ANY PARTIAL 

CARD 



* INCREMENT * 
•POINTER TO ROLL* 



•••••G2 *•***•*••• 

• • 

• RECORD ESD » 
•AND LOC COUNTER* 

• ON RLD ROLL • 



•••••H2 •••••••••* 

* MOVE * 

* GROUP TO * 

* BUFFER, PUNCH * 

* IF CARD * 
» COMPLETE * 
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Chart FF. PUNCH SUBPROGRAM ARGUMENT LISTS 



PUNCH 
ROLL 



'INITIALIZE LOC. 
» COUNTER. TXT 
• CARO OUTPUT 
> AREA AND 
' POINTER 



• C2 »-> 

* * I 
• ••• v 

140201 •• 



PUNCH 
PART I AL 
TXT CARD 



**>*03«**<< 

» RETURN 



»»**£3<<»»«*ftt< 
MOVE GROUP 

TO TXT 

OUTPUT AREA 

PUNCH IF 

CARD COMPLETE 



TEMP 
AND CONST 
. POINTER . 



COMPUTE 

APPROPRIATE 

LOCATION 



COMPUTE 

APPROPRIATE 

LOCATION 



•RECORD RLD INFO" 



INSURE 

•MINUS" TAG 

MARK 



MOVE 

DATA TO OUTPUT 

AREA 
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Chart FG. PUNCH SUBPROGRAM ADDRESSES 



PUNCH 

GLOBAL SPROG 

ROLL 



FLIP Te 

GLOBAL SF 

HOLL 



• STOHf • 
•LOCATION ON RLD« 

• ROLL • 



ON IH! HOLL 



» MOVE 
» O TO OUTPUT 
•AREA. PUNCH IF 
» CARD COMPLETE 



TURN OFF ■ 

■ UBPPnr.WAM " 

G, MOVf WORD* 



PUNCH 

ANY PARTIAL 

CARD 



10 1 






V 






... 1 


•1 


i> 


** 


*** 


..... 




Ml 


v 


F 


f SD 




• NU 


Mi 


1 


01 


TO 

L 


RLD • 



•••ES»«»«* 

RETURN 



• Dt TF RMINE 

■ LOCATION OF 
■SUUPGM ADDRESS 



■jUbPROG. FLAG." 



', TORf 

LOCATION IN 

LOC. COUNT FH 



INI T I AL I ZE 
OUTPUT AR{ A • 

TURN ON 
SUBPHOG. FL» 
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Chart FH. COMPLETE ADDRESSES FROM LIBRARY 



PUNCH USED 

LIBRARY 

ROLL 



• ft** 
ft ft 
ft B» • 



• STORE « 
•LOCATION ON RLO« 

• ROLL « 



»ft*ftC3*ftft**ft*ft« 

RETURN 



• MOVE 

• TO OUTPUT 
•AREA, PUNCH IF 

• CARD COMPLETE 



• TURN OFF 

• SUBPROGRAM 
•FLAG, MOVE «ORO 

• OFF ROLL 



• D« •-> 

• • •• 
M0404 . 



• PUNCH 

-> ANY PARTIAL 

• CARD 



MOVE NEXT 

WORD OFF ♦ 

DESTROY 



»ES»»»»* 

RETURN 



MOVE 

ESD NUMBER TO 

RLD ROU 



DETERMINE 

LOCATION OF 

FUNCT ION 

ADDRESS 



STORE 

LOCATION IN LOC 

COUNTER 



• INITIALIZE < 
» OUTPUT AREA, < 

» TURN ON i 
•SUBPROGRAM FLAG" 
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Chart FI. PUNCH ADDRESS CONSTANTS 



G0405 






» 






• 


PUNCH 


• 


ADCON 


ROLL 


i 


1 


• 


• 1 




• 


B2 • -> 




• 


* j 




• 


• •• \ 


/ 



.» » # »»« *t)j*» **»»»• » 

• • ». NO • « 

••DATA ON ROLL .« ' >* WFTURN « 



•••••C2********** 

* * 
» SET AREA » 
•CODE FROM lAST » 

* WORD ON ROLL * 



«»»»»02 ***»**»*** 
» SET ADDRESS * 
» WHERE CONST « 
•IS TO BE LOADED* 
•FROM NEXT WORD • 
• ON ROLL * 



I 

V 
#»»»«»E2*» »»»**»♦»» 

» MOVE INFO • 

TO OUTPUT 

AREA AND PUNCH* 



»»»»»F2*» ******** 
» » 

* SET * 
» UP RLD ROLL * 

* ENTRY * 

* • 



• * 

* 82 * 



122 



Chart FJ. PUNCH RLD CARDS 



»««*A1 ••••••••« 

OROER AND 

PUNCH RLD 

ROLL 



• SORT 

->• RLD CARDS ON 

• ROLL 



ENTRIES WITH LIKE 

ESO NUMBERS TOGETHER. 

AOR. CONST A NO 

TEMP AND CONST ROLLS 

ARE USEO AS TEMP 

STORAGE 



#41615 V 

•••••Q2********< 
•SET ESD NUMBER 
•(-ROM AREA CODE 
>• AND PUT IN 

• RLD CARD 

• IMAGE 



SET 

LAST LOAO 

ADDRESS FROM 

RLD GROUP 



PUNCH 

REMAINING 

DATA 



IOUS .» , 

. • • V 

• YES •*< 

I 

• • * e< 
L_ >• E 4 . . 



> RETURN 



|— >«.ROOM ON CAKO 

| •• .• 



|Alb04 V 

••••«D&********** 
•PLACE PREVIOUS • 

• VALUE IN CARC • 

• MARKED FOR NO « 

• CONTINUATION « 

• AN(3 UPDATE • 



. • ROOM •. 
YES ••FOR NE» tSO« 
r •• NO. ON CARD 



SAVE NC* CSD 



•PLACE PREVIOUS 

• VALUE IN CAftO 

• MAHKED FOR 

• CONTINUATION 

• AND UPDATE 
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Chart FK. PUNCH END CARDS 



PUNCH 
END CARD 



KitfB2>tiii<f>i< 



'SET UP END CARD* 



» » 

PUNCH END CARD 



< 

RETURN < 
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Chart FL. PUNCH NAMELIST TABLE POINTERS 



.» DATA ON « 

.NAMELIST MPV 

••DATA ROLL." 



>B J » « • • • 

RETURN 



•CALCULATE NEXT 
• ADDRESS IN 
» TEMPORARY 
» STORAGE AREA 



•»ft»D2 ********* 
MOVE LOCATION 

OF POINTER 

FROM NAMELIST 

MPY DATA 

ROLL 



» INCREASE « 
• TEMPORARY « 
•STORAGE POINTER* 



• IN! TI AL 


! Z F TXT • 


• CARD TO LOAD • 


• L11CA 


F ION • 


• INDI 


ATED •> 



SET 

UP RLD ENTRY 

FOR WORD IN 

MAMfc L I ST TABLE 



•MOVE MULTIPLIER 

• TO TEMP AND 

• CONST ROLl 
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APPENDIX A: THE POP LANGUAGE 



This appendix deals with the POP lan- 
guage, the language in which the FORTRAN IV 
(G) compiler is written. The parts of the 
appendix describe this language in the 
following way? 

• The first part describes the POP 
instructions, which are grouped accord- 
ing to their functions. 

• The second part describes the labels 
used in the routines of the compiler. 

• The third part discusses the assembly 
and operation of the compiler, as it is 
affected by the use of the POP lan- 
guage. This part ends with a cross- 
reference list giving the mnemonic for 
each instruction, the hexadecimal code 
which represents it, and the instruc- 
tion group in which it is described. 



POP INSTRUCTIONS 



For the purpose of describing their 
operation, the POP instructions have been 
divided into groups according to the pri- 
mary function which they perform. Where a 
particular POP instruction pertains to more 
than one group, it is described in the 
group which discusses its most important 
functions. 

In the descriptions of the instructions, 
the following notational conventions are 
employed: 



1. 



2. 



Parentheses are used to indicate "the 
contents of;" thus (G) stands for the 
contents of storage address G, where 
all addresses are fullword addresses. 

The arrow is used to indicate trans- 
mission in the direction of the arrow; 
(G) ♦ 1 — > G reads: the contents of 
storage address G, plus one, are 
transmitted to storage address G. 



3. 



Wn (n=l, 2, 3, ...) 

BOTTOM, BOTTOM- 1, 
the WORK roll. 



refers to the 
etc. , words on 



It should be noted that in many cases 
the address field, G, of the instruction 
contains a value other than a storage 
address (for instance, a roll name). In 
most of these cases, the symbolic reference 
which is used is defined in the program by 
means of an EQU card. 



The mnemonic codes for the POP instruc- 
tions are of the form IEYxxx. In the 
following discussion, the characters IEY 
are omitted from the mnemonics in the 
interest of ease of reading, arid only the 
xxx portion of the code appears. 



TRANSMISSIVE INSTRUCTIONS 



The instructions described in this sec- 
tion are primarily involved in moving 
information from place to place in storage. 

APH G: Assign and Prune Half 

The upper half word of (WO) — > the 
lower half word of G, where G is a 
storage address; the upper half word 
of G remains unaltered; the BOTTOM 
of the WORK roll is reduced by 
four, thus pruning WO. 

ARK G: Assign Relative to Pointer and Keep 

(WO) --> P ♦ (G) , where P is the 
address defined by the pointer in 
Wl and G is a storage address; the 
BOTTOM of the WORK roll is reduced 
by four, thus pruning the value 
assigned and keeping the pointer. 

ARP G: Assign Relative to Pointer 

(WO) — > P + (G), where P is the 
address defined by the pointer in 
Wl and G is a storage address; the 
BOTTOM of the WORK roll is reduced 
by eight, thus pruning the current 
WO and Wl. 

ASK G: Assign to Storage and Keep 

(WO) — > G, where G is a storage 
address; the BOTTOM of the WORK 
roll is unchanged. 

ASP G: Assign to Storage and Prune 

(WO) — > G, where G is a storage 
address; the BOTTOM of the WORK 
roll is reduced by four, thus prun- 
ing the current WO. 

BOP G: Build on Polish 

The control driver G is built on 
the POLISH roll, where the G field 
of the instruction is the lower 
eight bits of the ADDRESS portion 



Appendix A: The POP Language 127 



of the desired driver. (The TAG 
field of the pointer contains zero, 
and the OPERATOR field contains 
255.) 



CAR G: Copy and Release 

Copy roll G f where G is a roll 
number, to roll T, and release roll 
G (i.e., restore it to its condi- 
tion before the last reserve) ; the 
number T is found in WO; the BOTTOM 
of the WORK roll is reduced by 
four. If roll G is in the reserved 
state when this instruction is 
executed, the instruction sets its 
BOTTOM to (TOP) minus four; if the 
roll is not reserved, BOTTOM is set 
to (BASE). 

CLA G: Clear and Add 

Clear WO; (G) — > WO, where G is a 
storage address; the BOTTOM of the 
WORK toll is unchanged. 



BOTTOM of the 
increased by four. 



WORK 



roll 



EAW G: Effective Address to Work 

G — > WO, where G is a storage 
address; the BOTTOM of the WORK 
roll is increased by four. 



ECW G: Effective Constant Address to Work 

G — > WO, where G is a storage 
address which refers to a constant 
under a constant base. The BOTTOM 
of the WORK roll is increased by 
four. 



EOP G: Extract Operator 

The OPERATOR portion of (G) — > WO 
(right adjusted) , where G is a 
storage address; the BOTTOM of the 
WORK roll is increased by four. 



CNT G: Count 

The number of words on roll G — > 

WO, where G is a roll number; the 

BOTTOM of the WORK roll is 
increased by four. 

CPO G: Copy PI ex On 

The plex pointed to by the pointer 
in WO is copied to roll G, where G 
is the number of the target roll, 
except for the first word of the 
plex (which holds the number of 
words in the plex, exclusive of 
itself). The BOTTOM of the WORK 
roll is reduced by four, thus prun- 
ing the pointer. The BOTTOM of 
roll G is increased by four for 
each word moved; the BOTTOM of the 
original roll is unchanged. 

CRP G: Copy Relative to Pointer 

Copy roll S to roll G, where G is a 
roll number, beginning with the 
group indicated by the pointer in 
WO, to the BOTTOM of the roll. The 
roll number S is also provided by 
the pointer in WO. The BOTTOM of 
roll S is decreased by the number 
of bytes moved. The BOTTOM of roll 
G is increased by the number of 
bytes moved. The BOTTOM of the 
WORK roll is unchanged; thus, the 
pointer remains. 

EAD G: Extract Address 

The ADDRESS portion of (G) — > WO, 
where G is a storage address; the 



ETA G: Extract Tag 

TAG portion of (G) — > TAG portion 
of WO, where G is a storage 
address; the BOTTOM of the WORK 
roll is increased by four. 

FET G: Fetch 

(G) — > WO, where G is a storage 
address; the BOTTOM of the WORK 
roll is increased by four. 

FLP G: Flip 

Invert the order of roll G, where G 
is a roll number, word for word. 

FRK G: Fetch Relative to Pointer and Keep 

(P + (G)) — > WO, where P is the 
address defined by the pointer in 
WO and G is a storage address; the 
BOTTOM Of the WORK roll is 
increased by four; thus, the 
pointer remains in Wl. 

FRP G: Fetch Relative to Pointer 

(P + (G)) — > WO, where P is the 
address defined by the pointer in 
WO and G is a storage address; the 



WORK roll 
the pointer 



is 
is 



BOTTOM of the 
unchanged; thus, 
destroyed. 

FTH G: Fetch Half 



The lower halfword of (G) — > upper 
ha If word of WO, where G is a 
storage address; the lower half- 
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word of WO is set to zero; the 
BOTTOM of the WORK roll is 
increased by four. 



IAD G: Insert Address 

The ADDRESS portion of (G) — > the 
ADDRESS portion of the pointer in 
W0 t where G is a storage address; 
the BOTTOM of the WORK roll is 
unchanged. 

IOP G: Insert Operator 

G — > OPERATOR portion of the 
pointer in WO, where the G field of 
the instruction is the desired 
OPERATOR value; the BOTTOM of the 
WORK roll is unchanged. 

ITA G: Insert Tag 

TAG portion of (G) — > TAG portion 
of the pointer in WO, where G is a 
storage address; the BOTTOM of the 
WORK roll is unchanged. 

ITM G: Insert Tag Mode 

Mode portion of the TAG field of 
(G) — > mode portion of the TAG 
field of the pointer in WO, where G 
is a storage address; the BOTTOM of 
the WORK roll is unchanged. 

LCE G: Last Character Error 

The last character count and the 
address G — > ERROR roll, where G 
is the address of the message for 
the error. The count of errors of 
the severity associated with the 
message is increased by one, and 
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indicates the highest severity 
level of errors for the present 
statement) is updated as required. 

LCF G: Last Character Error if False 

If (ANSWER BOX) = false, the last 
character count and the address 
G — > ERROR roll, where G is the 
address of the message for the 
error. The count of errors of the 
severity associated with the mes- 
sage is increased by one, and the 
MAX STA ERROR NUMBER is updated as 
required. If (ANSWER BOX) = true, 
the instruction does nothing. 



LCT G: Last Character Error if True 

If (ANSWER BOX) = true, the last 
character count and the address 
G — > ERROR roll, where G is the 
address of the message for the 



error. The count of errors of the 
severity associated with the mes- 
sage is increased by one, and the 
MAX STA ERROR NUMBER is updated as 
required. If (ANSWER BOX) = false, 
the instruction does nothing. 



LGP G: Load Group from Pointer 



Loads the group specified by the 
pointer in WO into SYMBOL 1, 2, and 
3, DATA 0, 1, 2, 3, 4, and 5. The 
number G is the number of bytes to 
be loaded; if G=0, the entire group 
is loaded. The BOTTOM of the WORK 
roll is unchanged: hence. the 
pointer remains in WO. 



LSS G: Load Symbol from Storage 



Loads the (G and G+4), where G is a 
storage address, into SYMBOL 1, 2, 
and 3, and DATA 0. 



MOC G: Move on Code 

G ha If words, where G is an even 
number, are to be moved from the 
WORK roll to the CODE roll. A word 
containing a special value in the 
first two bytes and the number of 
words transferred in the last two 
bytes are first placed on the CODE 
roll. G/2 words of information are 
then moved from the WORK roll to 
the CODE roll; the BOTTOM of the 
CODE roll is increased by four for 
each word placed on the roll; the 
BOTTOM of the WORK roll is reduced 
by four for each word moved from 
the roll. A location counter is 
increased by the number of bytes of 
object code placed on the roll. 

MON G: Move on 

(WO) — > roll G, where G is the 
roll number; the BOTTOM of roll G 
is increased by four; the BOTTOM of 
the WORK roll is decreased by four. 

NOG G: Number of Groups 

The number of groups on roll G — > 
WO, where G is the roll number; the 
BOTTOM of the WORK roll is 
increased by four. 

NOZ G: Nonzero 

A nonzero value — > G, where G is a 
storage address. 
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PGO G: Place Group On 



ZER G: Zero 



A group from SYMBOL 1, 2, and 3 and 
DATA 0, 1, 2, 3 r <4, and 5 — > roll 
G f where G is the roll number, by 
group status; the BOTTOM of roll G 
is increased by group size. 



— > G, 
address. 



where 



is a storage 



ARITHMETIC AND LOGICAL INSTRUCTIONS 



PGP G: 



PLD G: 



Place Group from Pointer 

The group in SYMBOL 1, 2, 3, DATA 
0, 1, 2, 3, 4, and 5 is placed on a 
roll according to the pointer in 
WO. The number G is the number of 
bytes to be moved; if G=0, an 
entire group is moved; the BOTTOM 
of the WORK roll is unchanged. 



Precision Load 

(G and G+4) — > MP AC 1 and MP AC 
where G is a storage address. 



2. 



PNG G: Pointer to New Group 

Builds a pointer to the first byte 
of the next group to be added to 
roll G, where G is the roll number, 
and places the pointer in WO; the 
BOTTOM of the WORK roll is 
increased by four. 

POC G: Place on Code 

The data located at storage address 
G+4 and following is to be moved to 
the CODE roll. The number of half- 
words to be moved is stored in 
location G and is an even number. 
A word containing a special value 
in the first two bytes and the 
number of words of data in the last 
two bytes is first placed on the 
CODE roll. The indicated data is 
then moved to the CODE roll, and 
the BOTTOM of the CODE roll is 
increased by four for each word 
placed on the roll. A location 
counter is increased by the number 
of bytes of object code placed on 
the roll. 



The following instructions are primarily 
designed to perform arithmetic and logical 
manipulations. 

ADD G: Add 

(G) + (WO) — > WO, where G is a 
storage address; the BOTTOM of the 
WORK roll is unchanged ; hence, the 
initial contents of WO are 
destroyed. 

AFS G: Add Four to Storage 

(G) + 4 — > G, where G is a storage 
address. 

AND G: And 

(G) AND (WO) — > WO; that is, a 
logical product is formed between 
(G) and (WO) , and the result is 
placed in WO. The BOTTOM of the 
WORK roll is unchanged; hence, the 
initial contents of WO are 
destroyed. 



DIM G: Diminish 



(G) - 1 — > G, where 
address. 



G is a storage 



DIV G: Divide 



(WO) / (G) — > G, where G is a 
storage address; the remainder, if 
any, from the division is lost; a 
true answer is returned if there is 
no remainder; the BOTTOM of the 
WORK roll is unchanged; hence, the 
initial contents of WO are 
destroyed. 



IOR G: Inclusive Or 



PST G: Precision Store 

(MPAC 1 and MPAC 2) — > G and G+4, 
where G is a storage address. This 
instruction performs a doubleword 
store. 



SWT G: Switch 



Interchanges (WO) and (G), where G 
is a storage address; the BOTTOM of 
the WORK roll is unchanged. 



The inclusive OR of (WO) and (G), 
where G is a storage location, is 
formed, and the result is placed in 
WO. The BOTTOM of the WORK roll is 
unchanged; hence, the initial con- 
tents of WO are destroyed. 

LLS G: Logical Left Shift 

(WO) are shifted left G places; the 
result is left in WO; bits shifted 
out at the left are lost, and 
vacated bit positions on the right 
are filled with zeros. 
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LRS G: Logical Right Shift 

(WO) are shifted right G places; 
the result is left in WO; bits 
shifted out at the right are lost, 
and vacated bit positions on the 
left are filled with zeros. 



MPY G: Multiply 

(G) * (WO) — > WO, where G is a 
storage address; the BOTTOM of the 
work roll is unchanged; hence, the 
initial contents of WO are 

destroyed. 

PSP G: Product Sign and Prune 

The exclusive OR of (WO) and (G), 
where G is a storage location, 
replace the contents of G; the 
BOTTOM of the WORK roll is reduced 
by four, thus pruning WO. 



SUR G: Subtract 

(WO) - (G) — > WO, where G is a 
storage address; the BOTTOM of the 
WORK roll is unchanged; hence, the 
initial contents of WO are 
destroyed. 

TLY G: Tally 

(G) + 1 — > G, where G is a storage 
address. 



DECISION MAKING INSTRUCTIONS 



These instructions inspect certain con- 
ditions and return either a true or false 
answer in the ANSWER BOX. Some of the 
instructions also transmit stored informa- 
tion from place to place. 



CSA G: Character Scan with Answer 

If G = (CRRNT CHAR), the scan arrow 
is advanced and a true answer is 
returned; otherwise, the scan arrow 
is not advanced and a false answer 
is returned. 

LGA G: Load Group with Answer 

The group from the BOTTOM of roll 
G, where G is the roll number and 
roll G has been flipped, is loaded 
into SYMBOL 1, 2, 3, DATA 0, 1, 2, 
3, 4, and 5 (as many words as 
necessary) ; if the roll is empty or 
if the group is a marker symbol, a 



false answer is returned; other- 
wise, a true answer is returned; 
the BOTTOM of roll G is reduced by 
group size. 

MOA G: Move off with Answer 

If roll G, where G is the roll 
number, is empty, a false answer is 
returned. Otherwise, the BOTTOM of 
roll G is reduced by four, pruning 
the word moved: the BOTTOM of the 
WORK roll is increased by four; a 
true answer is returned. 

QSA G: Quote Scan with Answer 

If the quotation mark (sequence of 
characters) beginning at storage 
address G (the first byte in the 
quotation mark is the number of 
bytes in the quotation mark) is 
equal to the quotation mark start- 
ing at the scan arrow, advance the 
scan arrow to the next active 
character following the quotation 
mark, and return a true answer; 
otherwise, do not advance the scan 
arrow and return a false answer. 

SAD G: Set on Address 

If G = ADDRESS portion of the 
pointer in WO, return a true answ- 
er; otherwise, return a false 
answer. 

SBP G: Search by Stats from Pointer 

Search the roll specified by the 
pointer in WO, beginning with the 
group following the one specified 
by the pointer for a group which is 
equal to the group in the central 
items SYMBOL 1, 2, 3, etc., accord- 
ing to the group stats values 
stored at locations G+U and G+8 
(these values are in the same order 
as those in the group stats 
tables). The roll number multip- 
lied by four is stored at location 
G. If a match is found, return a 
true answer, replace the pointer in 
WO with a pointer to the matching 
group, and continue in sequence. 
If no match is found, return a 
false answer, prune the pointer in 
WO, and continue in sequence. This 
instruction is used to continue a 
search of a roll according to group 
stats values other than those norm- 
ally used for the roll. 

SBS G: Search by Stats 

If the roll, whose number multip- 
lied by four is in storage at 
location G, is empty, return a 
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false answer. Otherwise, search 
that roll against the central items 
SYMBOL 1, 2, and 3 and DATA 0, 1, 
2, 3, 4, and 5, as defined by the 
group stats values stored at loca- 
tions G+U and G+8 (these values are 
in the same order as those in the 
group stats tables); if a match is 
found, place a pointer to the 
matching group in W0 # increase the 
BOTTOM of the WORK roll, and return 
a true answer; if no match is 
found, return a false answer. This 
instruction is used to search a 
roll according to group stats 
values other than those normally 
used for that roll. 



SCE G: Set if Character Equal 



SNE G: Set if Not Equal 

If (WO) * (G) , where G is a storage 
address, a true answer is returned; 
otherwise, a false answer is 
returned. 



SNZ G: Set if Nonzero 

If (G) * 0, where G is a storage 
address, return a true ' answer; 
otherwise, return a false answer. 



SOP G: Set on Operator 

If G = OPERATOR portion of the 
pointer in WO, return a true answ- 
er; otherwise, return a false 
answer. 



If G = iCRRNT CHAR), return a true 
answer; otherwise, return a false 
answer; in neither case is the scan 
arrow advanced. 



SCK G: Set on Character Key 



SPM G: Set on Polish Mode 

If the mode portion of the TAG 
field of the (G) = the mode portion 
of the TAG field of the pointer in 
PI, where G is a storage addess, 
return a true answer; otherwise, 
return a false answer. 



If (CRRNT CHAR) displays any of the 
character keys of G, where G is a 
character code whose bit settings 
describe a group of characters, 
return a true answer; otherwise, a 
false answer is returned; in neith- 
er case is the scan arrow advanced. 



SPT G: Set on Polish Tag 

If the TAG field of the (G) = the 
TAG field of the pointer in PI, 
where G is a storage address, 
return a true answer; otherwise, 
return a false answer. 



SFP G: Search from Pointer 

Search the roil specified by the 
pointer in WO, beginning with the 
group following the one specified 
by the pointer in WO, for a group 
which is equal to the group in 
SYMBOL 1, 2, 3, DATA 0, 1..., etc., 
by roll statistics. If a match is 
found, return a true answer, 
replace the pointer in WO with a 
pointer to the matching group, and 
jump to G, where G must be a local 
address. If no match is found, 
return a false answer, prune the 
pointer in WO (reduce the BOTTOM of 
the WORK roll by four) , and con- 
tinue in sequence. 



SLE G: Set if Less or Equal 

If (WO) < (G), where G is a storage 
address, a true answer is returned; 
otherwise, a false answer is 
returned. The comparison made con- 
siders the two values to be signed 
quantities. 



SRA G: Search 

If roll G, where G is the roll 
number, is empty, return a false 
answer; otherwise, search roll G 
against the central items SYMBOL 1, 
2, and 3 and DATA 0, 1, 2, 3, 4, 
and 5, as defined by the roll 
statistics; if a match is found, 
place a pointer to the matching 
group in WO, increase the BOTTOM of 
the WORK roll, and return a true 
answer; if no match is found, 
return a false answer. 

SRD G: Set if Remaining Data 

If roll G, where G is the roll 
number, is not empty, return a true 
answer; otherwise, return a false 
answer. 

STA G: Set on Tag 

If the TAG portion of (G) = the TAG 
portion of the pointer in WO, where 
G is a storage address, return a 
true answer; otherwise, return a 
false answer. 



132 



STM G: Set on Tag Mode 

If the mode portion of the TAG 
field of the (G) = the mode portion 
of the TAG field of the pointer in 
WO , where G is a storage address, 
return a true answer; otherwise, 
return a false answer. 



JUMP INSTRUCTIONS 



The JPE FLAG is set to nonzero, and 
a jump is taken to G, which may 
only be a local address. 



JRD G: Jump Roll Down 



This instruction manipulates a 
pointer in WO. If the ADDRESS 
field of that pointer is equal to 
(pointing to the word preceding the 
beginning of a reserved area), the 
ADDRESS field is increased to four. 



The following instructions cause the 
normal sequential operation of the POP 
instructions to be altered, either uncondi- 
tionally or conditionally. See the sec- 
tions "Labels" and "Assembly and Operation" 
in this Appendix for further discussion of 
jump instructions. 

CSF G: character Scan or Fail 

If G = (CRRNT CHAR), advance the 
scan arrow to the next active 
character; otherwise, jump to 
SYNTAX FAIL. 

JAF G: Jump if Answer False 

If (ANSWER BOX) = false, jump to G, 
where G is either a global or a 
local address; otherwise, continue 
in sequence. One of two operation 
codes is produced for this instruc- 
tion depending on whether G is a 
global or local label. 

JAT G: Jump if Answer True 

If (ANSWER BOX) = true, jump to G, 
where G is either a global or a 
local address; otherwise, continue 
in sequence. One of two operation 
codes is produced for this instruc- 
tion depending on whether G is a 
global or a local label. 

JOW G: Jump on Work 

If (WO) = 0, decrease the BOTTOM of 
the WORK roll by four and jump to 
G, where G is either a global or a 
local address; otherwise, reduce 
word by one, — > WO, and continue 
in sequence. One of two operation 
codes is produced for this instruc- 
tion, depending on whether G is a 
global or a local label. 

JPE G: Jump and Prepare for Error 

The following values are saved in 
storage: the location of the next 
instruction, the last character 
count, the BOTTOM of the EXIT roll, 
and the BOTTOM of the WORK roll. 



is equal to any legitimate value 
within the roll, it is increased by 
group size. If the ADDRESS field 
of the pointer indicates a location 
beyond the BOTTOM of the roll, the 
pointer is pruned (the BOTTOM of 
the WORK roll is reduced by four), 
and a jump is made to the location 
G, which must be a global address. 

JSB G: Jump to Subroutine 

Return information is placed on the 
EXIT roll; jump to G, which is a 
global address. 

JUN G: Jump Unconditional 

Jump to G, which is either a global 
or a local address. One of two 
operation codes is produced for 
this instruction, depending on 
whether G is a global or a local 
label. 

QSF G: Quote Scan or Fail 

If the quotation mark (sequence of 
characters) beginning at storage 
address G (the value of the first 
byte in the quotation mark is the 
number of bytes in the quotation 
mark) is equal to the quotation 
mark starting at the scan arrow, 
advance the scan arrow to th< first 
active character beyond the quota- 
tion mark; otherwise, jump to SYN- 
TAX FAIL. 

XIT : Exit 

Exit from the interpreter; the code 
which follows is written in 
assembler language. 



ROLL CONTROL INSTRUCTIONS 



These instructions are concerned with 
the control of the rolls used in the 
compiler. 
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POW G: 



Prune off Work 



BIM G: Build Instruction by Mode 



Reduce the BOTTOM of the WORK roll 
by four times G, where G is an 
integer, thus pruning G words off 
the WORK roll. 



REL G: Release 

Restore roll G, where G is the roll 
number, to the condition preceding 
the last reserve; this sets BOTTOM 
to (TOP) reduced by four if the 
roll is reserved, or to (BASE) if 
the roll is not reserved; TOP is 
set to the value it had before the 
reserve. 

RSV G: Reserve 

Reserve roll G, where G is the roll 
number, by storing (TOP) - (BASE) 
on the roll, increasing BOTTOM by 
four, and setting TOP to (BOTTOM) ; 
this protects the area between BASE 
and TOP, and allows ascending 
addresses from TOP to be used as a 
new, empty roll. 



CODE PRODUCING INSTRUCTIONS 



These POP instructions construct object 
module code on the CODE roll. Each object 
module instruction constructed results in 
the placing of a 2-word group on the CODE 
roll. The instruction generated, in bi- 
nary, is left justified in this group. In 
the case of halfword instructions, the 
remainder of the first word is filled with 
zero. The second word contains a pointer 
to the instruction operand, except in the 
case of 6-byte instructions when the last 
two bytes of the group contain the value 
zero. 



BID G: Build Instruction Double 

The instruction indicated by G, 
where G is an instruction number 
which indicates the exact instruc- 
tion to be generated, is built on 
the CODE roll, where WO contains a 
pointer to the first operand and Wl 
contains a pointer to the second 
operand. The BOTTOM of the CODE 
roll is increased by eight. The 
BOTTOM of the WORK roll is reduced 
by eight; thus, both pointers are 
pruned. A location counter is in- 
creased by one for each byte of the 
instruction. 



The instruction indicated by G, 
where G is an instruction number 
which indicates the class of the 
instruction only. For example, 
LOAD INSTR as opposed to LE INSTR 
is built on the CODE roll, where WO 
contains a pointer to the second 
operand. A pointer to the accumu- 
lator which holds the first operand 
is contained in the variable CRRNT 
ACC. The instruction mode is 
determined by inspecting the TAG 
fields of the pointers; the BOTTOM 
of the CODE roll is increased by 
eight; the BOTTOM of the WORK roll 
is reduced by four, thus pruning 
the pointer. A location counter is 
increased by one for each byte of 
the generated instruction. 

BIN G: Build Instruction 

The instruction indicated by G, 
where G is an instruction number 
which indicates the exact instruc- 
tion to be built, is constructed on 
the CODE roll. The WORK roll holds 
from zero to three words of infor- 
mation required for producing the 
instruction. For instructions 
requiring no operands, nothing 
appears on the WORK roll. For 
instructions requiring one operand, 
a pointer to that operand appears 
in WO. For two operand instruc- 
tions, a pointer to the first 
operand appears in WO and a pointer 
to the second operand is in Wl. 
For input/output instructions, Wl 
holds a constant which' becomes part 
of the instruction. For storage- 
to-storage move instructions, W2 
holds the length. The BOTTOM of 
the CODE roll is increased by eight 
to reflect the addition of the 
group. The BOTTOM of the WORK roll 
is reduced by four for each word of 
information found on that roll; 
thus, all the information is 
pruned. A location counter is 
increased by one for each byte of 
the instruction. 



ADDRESS COMPUTATION INSTRUCTIONS 

The POP instructions whose G fields 
require storage addresses may be used to 
refer to WORK roll groups, provided the 
storage address of the desired group is 
first computed. This computation must be 
performed at execution time, since the 
location of WO, for example, varies as the 
program is operated. The instructions in 
this category perform these computations and 
jump to the appropriate POP, which then op- 
erates using the computed address. 
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WOP G: WO POP 



LABELS 



Compute the address of the current 
WO and jump to the POP indicated by 
G# where G is a POP instruction 



which normally accepts 
address in its G field. 



a storage 



W1P G: Wl POP 



Compute the address of the current 
Wl and jump to the POP indicated by 
G, where G is a POP instruction 
which normally accepts a storage 
address in its G field. 



In the POP language, storage locations 
containing instructions or data may be 
named with two types of labels, global 
labels and local labels. Global labels are 
unique within each phase of the compiler 
(but not from one phase to another) ; these 
labels may be referred to from any point in 
the phase. Local labels are • also unique 
within each phase (but not between phases) : 
however, these labels may be referred to 
only within the global area (that is, the 
area between two consecutive global labels) 
in which they are defined. 



GLOBAL LABELS 



W2P G: W2 POP 



Compute the address of the current 
W2 and jump to the POP indicated by 
G, where G is a POP instruction 
which normally accepts a storage 
address in its G field. 



W3P G: W3 POP 



Compute the address of the current 
W3 and jump to the POP indicated by 
G, where G is a POP instruction 
which normally accepts a storage 
address in its G field. 



WUP G: m POP 



Compute the address of the current 
WU and jump to the POP indicated by 
G, where G is a POP instruction 
which normally accepts a storage 



in its G field. 



The global labels which appear on a 
System/360 assembler listing of the compil- 
er are distinguished from local labels in 
that the global labels do not begin with a 
pound sign. Most of the global labels are 
of the form Gdddd, where each d is a 
decimal digit and the 4-digit value dddd is 
unique for the global label. Labels of 
this form are generally assigned in ascend- 
ing sequence to the compiler routines. All 
remaining global labels are limited to a 
length of seven characters. 

In contrast, the routine and data names 
used throughout this publication are 
limited only to a length of 30 characters. 
A comment card containing the long name 
used here precedes the card on which each 
global label is defined. In addition, the 
longer name appears as a comment on any 
card containing a POP instruction which 
refers to the global label. 

Example : 

G0336 STA GEN FINISH 
GO 3 36 IEYMOA G0U94 MOA DO LOOPS OPEN ROLL 



INDIRECT ADDRESSING INSTRUCTION 



Indirect addressing is provided for POP 
instructions whose address fields normally 
require storage addresses by means of the 
following instruction. 

IND G: Indirect 

The address contained in the 
storage address INDIRECT BOX is 
transmitted to the POP indicated by 
G, where G is a POP instruction 
which requires a storage address in 
its G field, and a jump is made to 
that POP. The POP "G" operates in 
its normal fashion, using the tran- 
smitted address. 



Explanation ; The second card shown defines 
the global label G0336. The first card, a 
comment card, indicates the longer name of 
the routine, STA GEN FINISH. The second 
card contains a reference to the label 
G0494; the longer form of this label is DO 
LOOPS OPEN ROLL, as indicated by the 
comment. 

Occasionally, several comment cards with 
identical address fields appear in sequence 
on the listing. This occurs when more than 
one long label has been applied to a single 
instruction or data value. The long labels 
are indicated in the comments fields of the 
cards. 
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Example : 

* ACTEST AC TEST 

* ACTEST TESTAC 
ACTEST IEYSOP GO 50 4 SOP FL AC OP MARK 



Explanation ; The three cards shown define 
the global label ACTEST. One long form of 
this label is AC TEST, as indicated by the 
comment on the first card. The second card 
indicates that the name TESTAC has also 
been applied to this location, and that it 
also corresponds to ACTEST. 



LOCAL LABELS 



consists of two 1-byte address constants 
per POP instruction. This 16-bit value 
represents an 8-bit numeric operation code 
and an 8-bit operand or relative address. 

The definition of the 8-bit operand or 
relative address varies according to the 
POP instruction used. Roll numbers appear 
in this field for instructions requiring 
them. For instructions which refer to 
storage locations relative to CBASE (see 
"Compiler Arrangement and General Register 
Usage") or to other base addresses, the 
word number relative to the appropriate 
base is used. The format for jump instruc- 
tions is discussed in the following 
paragraphs. 

when Quick Link is specified, machine 
language instructions are generated for the 
following POP instruction. (See "Assembler 
Language References to POP Subroutines.") 



All local labels consist of 
followed by six decimal di 
preceding global label is 
Gdddd, the first four digits 
to those in the global name, 
two digits of the local label 
any particular sequence; they 
unique in the global area. 



a pound sign 
gits. If the 
of the form 
are identical 
The remaining 
do not follow 
are, however. 



The local label is defined by its 
appearance in the name field of a card 
containing a POP or assembler language 
instruction. 



Example ; 
G0268 



GO 2 68 PROCESS SCALAR ROLL 
IEYSRD G0H32 SRD SCALAR ROLL 



#026811 IEYJOW #026821 

#026802 IEYITA G0359 ITA CED TAG MARK 

Explanation ; The global label G0268 is 
defined by the second card in the sequence 
shown. The next two cards define, respec- 
tively, the local labels #026811 and 
#026802. In addition, the third card in 
the sequence contains a reference to the 
local label #026821, which is presumably 
defined elsewhere within the global area 
shown here. 



ASSEMBLY AND OPERATION 



The compiler is assembled with each POP 
instruction defined as a macro. Unless 
"Quick Link" output has been designated to 
the macro by means of the assembler 
instruction SETC , QLK , » the resulting code 



POP INTERPRETER 



The assembled POP code is interpreted by 
a short machine language routine, POP 
SETUP, which appears with the POP subrou- 
tines at the beginning of the compiler. 

POP SETUP inspects each pair of address 
constants in sequence, and, using the 8 -bit 
operation code as an index into the POP 
jump table , a table which correlates opera- 
tion codes for the POPs with the addresses 
of the POP subroutines, transfers control 
to the appropriate POP subroutine. 

Thus, on encountering the hexadecimal 
value 081A, POP SETUP indexes into the POP 
jump table (labeled POPTABLE) at the eighth 
byte, counting from zero. The value found 
at this location is 0158 (hexadecimal); 
this is the address, relative to the base 
of the POP jump table, of the POP subrou- 
tine for the POP numbered 08 (IEYSUB). 
When this value is added to the beginning 
address of the POP jump table, the absolute 
address of IEYSUB is produced, and POP 
SETUP performs a branch to that location. 

IEYSUB then operates, using the relative 
address 1A (which it finds in general 
register 7, ADDR) , and returns via POPXIT, 
register 6; in this case the return is to 
POP SETUP, which then continues with the 
next POP in sequence. The register POPADR 
is used to keep track of the location of 
the POP being executed. 

This sequential operation can be inter- 
rupted by means of POP jump (branch) 
instructions, which cause an instruction 
other than the next in sequence to be 
operated next. The XIT POP ins^^'^tior 
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also alters the sequence by causing the 
interpreter to release control, performing 
a branch to the assembler language instruc- 
tion following the XIT. This device is 
employed to introduce assembler language 
coding into the compiler routines when tnxs 
is more efficient than the use of POPs. 
Assembler language sequences sometimes ter- 
minate with a branch to POP SETUP, so that 
it may resume the execution of POP 
instructions. 



ASSEMBLER LANGUAGE REFERENCES TO POP 
SUBROUTINES 



Thus, the instruction IEYJUN G0192J is 
assembled as 5002, for example, where the 
global jump table begins: 

r — i 

GOOjdJ j 5a0 J 

f ^ 

G0111J | 752 | 

f 1 

G0192J j B02 j 

|. ^ 

I • I 
I • I 
I • I 



In some of the routines of the compiler, 
the operation of POP SETUP is bypassed by 
assembler language instructions which make 
direct reference to the POP subroutines. 
In these sequences, a pair of machine 
language instructions performs the function 
of a single POP instruction. For example, 
the instructions 

LA ADDR, ONE-CBASE (0,0) 
BAL POPXIT, FETQ 



function of 



the 



POP 



accomplish the 
instruction 

IEYFET ONE 



but bypass the operation of POP SETUP. The 
IEYFET routine, (referred to by its label 
FETQ) returns, via POPXIT, to the next 
instruction. Note that the first instruc- 
tion of the pair sets ADDR to the correct 
value for the operand of the IEYFET opera- 
tion; this would be done by POP SETUP if it 
interpreted IEYFET ONE. 



On encountering this instruction, POP SETUP 
loads its address field (02), multiplied by 
four (08), into the register ADDR. It then 
jumps to the POP subroutine for IEYJUN. 

The IEYJUN subroutine uses ADDR as an 
index into JUMP TABLE, finding the value 
B02. This value is placed in the register 
TMP and a branch is made to the location 
defined by the sum of the contents of TMP 
and the contents of CONSTR, which holds the 
location CBASE. Thus, if the location 
CBASE is 10B0, the location branched to is 
1BB2, the location of the routine labeled 
G0192, and the instruction at that location 
is operated next. 

Since the POP subroutines for global 
jumps branch directly to the target loca- 
tion, the instruction at that location must 
be a machine language instruction rather 
than a POP. Moreover, all jump target 
routines which contain local jumps must 
reset POPADR to reflect the new location. 
Thus, routines which are jump targets and 
which are written in POPs begin with the 
instruction 



j GLOBAL JUMP INSTRUCTIONS 



The labels referred to in POP global 
jump instructions , jump instructions which 
branch to global labels, always end with 
the character J. These global labels refer 
to the global jump table , a table whose 
fullword entries contain the relative 
addresses of global labels which are the 
targets of branches. Each phase of the 
compiler has a global jump table. The 
table is labeled JUMP TABLE. 

References in POP global jump instruc- 
tions to the global jump table are 
assembled as relative word addresses in 
that table. Each entry in the table con- 
tains the address, relative in bytes to 
CBASE, of the label whose spelling is 
identical to that of the global jump table 
entry except that it does not include the 
terminal J. 



BALR POPADR, POPPGB 

which sets POPADR to the location of the 
first POP instruction in the routine and 
branches to POP BASE, the address of which 
is held in POPPGB. At POP BASE, the 
contents of POPADR are saved in LOCAL JUMP 
BASE, POPXIT is set to the beginning loca- 
tion of POP SETUP, and POP SETUP begins 
operating. For the sake of brevity, this 
instruction is coded as 

BALR A, B 

in some routines. 

Routines in which the POP instructions 
have been replaced by pairs of assembler 
language instructions and which contain 
local jumps begin with the instruction 

BALR A, 

or 

BALR POPADR, 
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instead of the instruction given above, 
since the branch to POP SETUP is not 
desired. 

Because global jump targets begin with 
this machine language code, it is not 
possible for POP instructions to continue 
in sequence into new global routines. When 
this operation is intended, an IEYXIT or an 
IEYJUN instruction terminates the first 
routine. 



Explanation ; The local jump instruction 
illustrated at location 140 is assembled so 
that its address field contains the loca- 
tion of the label #024503 (120), relative 
in halfwords to the beginning location of 
the global area plus two (102). Thus, the 
address field of the IEYJUN instruction 
contains the value 09. 



LOCAL JUMP INSTRUCTIONS 



POP 



local jump instructions , jump 
instructions which transfer control out of 
the normal sequence to local labels.,, must 
occur in the same global area as the one in 
which the local label referred to is 
defined. 

The address portions of POP local jump 
instructions are assembled to contain the 
distance in halfwords from the beginning of 
the global area plus two to the indicated 
local label. This value is a relative 
ha If word address for the target, where the 
base used is the location of the first POP 
instruction in the global area. 



When the POP local jump instruction is 
interpreted, the contents of the location 
LOCAL JUMP BASE are added to the address 
field of the POP instruction to produce the 
absolute address of the jump target. LOCAL 
JUMP BASE is set to the beginning address 
of the global area plus two as a result of 
the BALR instruction which begins the glob- 
al routine; this function is performed at 
POP BASE, as described in "Global Jump 
Instructions. " 



Example ; 

Decimal 
Location Label 



100 
102 



GO 24 5 



Symbolic 
Instruction 
BALR A,B 
IEYCLA GO 566 



When local jumps are performed directly 
Hexadecimal in machine language, the relative address- 
Instruction ing described above is also used; in this 
case, however, the base address is in the 
062A register POPADR as a result of the BALR 
instruction heading the routine. 



120 



#024503 IEYLGA G0338 



9A12 



140 



IEYJUN #024503 



5809 



POP instruction mnemonics are listed 
Table 8. 



in 
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Table 8. POP Instruction Cross-Reference List 



1 Mnemonic 


Hex 


Instruction Group 


Mnemonic 


Hex 


| ADD 


04 


Arithmetic/Logical 


LGA 


9A 


| AFS 


BC 


Arithmetic/Logical 


LGP 


80 


| AND 


B4 


Ar i t hmet i c/Log i ca 1 


LLS 


98 


| APH 


A4 


Transmissive 


LRS 


B6 


| ARK 


86 


Transmissive 


LSS 


B0 


| ARP 


0E 


Transmissive 


MOA 


5C 


| ASK 


12 


Transmissive 


MOC 


9E 


j ASP 


14 


Transmissive 


MON 


5E 


I BID 


7E 


Code Producing 


MPY 


0A 


| BIM 


7C 


Code Producing 


NOG 


IE 


| BIN 


7A 


Code Producing 


NOZ 


3E 


| BOP 


60 


Transmissive 


PGO 


22 


| CAR 


1A 


Transmissive 


PGP 


9C 


j CLA 


06 


Transmissive 


PLD 


90 


j CNT 


1.C 


Transmissive 


PNG 


20 


j CPO 


B2 


Transmissive 


POC 


94 


| CRP 


62 


Transmissive 


POW 


16 


| CSA 


24 


Decision Making 


PSP 


92 


| CSF 


26 


Jump 


PST 


8C 


j DIM 


8E 


Arithmetic/Logical 


QSA 


2A 


j DIV 


B8 


Arithmetic/Logical 


QSF 


2C 


| EAD 


2E 


Transmissive 


REL 


64 


| EAW 


18 


Transmissive 


RSV 


66 


| ECW 


18 


Transmissive 


SAD 


6A 


| EOP 


30 


Transmissive 


SBP 


BA 


| ETA 


32 


Transmissive 


SBS 


96 


j FET 


34 


Transmissive 


SCE 


28 


| FLP 


46 


Transmissive 


SCK 


6E 


| FRK 


84 


Transmissive 


SFP 


A6 


| FRP 


10 


Transmissive 


SLE 


70 


| FTH 


AE 


Transmissive 


SNE 


74 


j IAD 


36 


Transmissive 


SNZ 


72 


| IND 


D2 


Indirect Addressing 


SOP 


6C 


| IOP 


38 


Transmissive 


SPM 


A2 


| IOR 


8A 


Ar i thmet ic/Logical 


SPT 


AC 


| ITA 


3A 


Transmissive 


SRA 


76 


| ITM 


A0 


Transmissive 


SRD 


78 


| JAF 


4A 


Jump (global) 


STA 


68 




56 


Jump (local) 


STM 


3C 


| JAT 


48 


Jump (global) 


SUB 


08 




54 


Jump (local) 


SWT 


OC 


i JOW 


4E 


Jump (global) 


TLY 


42 




5A 


Jump (local) 


WOP 


C8 


| JPE 


52 


Jump 


W1P 


CA 


| JRD 


82 


Jump 


W2P 


CC 


| JSB 


50 


Jump 


W3P 


CE 


| JUN 


4C 


Jump (global) 


W4P 


DO 




58 


Jump (local) 


XI T 


44 


| LCE 


00 


Transmissive 


ZER 


40 


j LCF 


AA 


Transmissive 






| LCT 


A8 


Transmissive 







I nstruction Group 
Decision Making 
Transmissive 
Arithmetic/Logical 
Arithmetic/Logical 
Transmissive 
Decision Making 
Transmissive 
Transmissive 
Arithmetic/Logical 
Transmissive 
Transmissive 
Transmissive 
Transmissive 
Transmissive 
Transmissive 
Transmissive 
Roll Control 
Arithmetic/Logical 
Transmissive 
Decision Making 
Jump 

Roll Control 
Roll Control 
Decision Making 
Decision Making 
Decision Making 
Decision Making 
Decision Making 
Decision Making 
Decision Making 
Decision Making 
Decision Making 
Decision Making 
Decision Making 
Decision Making 
Decision Making 
Decision Making 
Decision Making 
Decision Making 
Arithmetic/Logical 
Transmissive 
Arithmetic/Logical 
Address Computation 
Address Computation 
Address Computation 
Address computation 
Address Computation 
Jump 
Transmissive 
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APPENDIX B: ROLLS USED IN THE COMPILER 



This appendix describes each of the 
rolls used in the compiler, giving the 
group size, the structure and content of 
the information in the group, and the roll 
number. Each roll is described as it 
appears in each of the phases of the 
compiler. This information is useful in 
observing the actions taken by the various 
phases, since a significant portion of the 
work performed by the compiler is the 
construction and manipulation of informa- 
tion on rolls. 

The rolls are ordered in this appendix 
as they are in storage, by roll number. In 
some cases, a single, number is assigned to 
several rolls. In these cases, the rolls 
with identical numbers are presented 
chronologically, and the overlay of one 
roll on another indicates that the previous 
roll is no longer required when the new 
roll is used. The group stats values for 
rolls with the same number are always 
identical. 

The roll number is the entry number in 
the roll statistics tables for the appro- 
priate set of statistics; that is, the roll 
number multiplied by four is the relative 
address of the correct entry in the group 
stats, BASE, BOTTOM, and TOP tables. 



10) indicates either in-line (including 

which generation routine must be used) or 

that a call is to be generated (when the 
flag is equal to zero). 

This roll is used and then destroyed by 
Allocate. 



ROLL 1: SOURCE ROLL 



This roll holds source module statements 
while they are being processed during the 
operations of Parse. The roll is not used 
by any later phase of the compiler. 

Source statements appear on this roll 
one card column per byte. Thus, each card 
of a source statement occupies 20 groups on 
the roll. The group size is four bytes. 
The statement 

A(I,J)=B(I,J)*2+C(I,J)**2 

would therefore appear on the SOURCE roll 
as: 



ROLL 0: LIB ROLL 



This roll contains one group for every 
name by which a library subprogram can be 
referred to in the source module. The roll 
is contained in IEYROL and remains 
unchanged in size and in content throughout 
compilation. 

The group size for the LIB roll is 
twelve bytes. Each group has the form: 



4 bytes 



r- 



-subprogram- 



■narae- 



l— 



— T- 



TAG 



TAG 



I flag 



no. arguments 



The TAG appearing in the seventh byte of 
the group provides the mode and size of the 
FUNCTION value, if the subprogram is a 
FUNCTION. The TAG in byte 9 indicates the 
mode and size of the arguments to the 
subprogram. For FUNCTIONS, the flag (byte 



4 bytes 
t — 



I J 



+ + 



j. 

i 

♦ 

b 



I _ * 
I b 



+— 



J 
2 
b 



< 



) 

— + 

b 

b 



— 1 



j. T T T ^ 

| b | b | b | b | 
i j i j j 

where b stands for the character blank, and 
a total of 20 words is occupied by the 
statement. 
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ROLL 2: IND VAR ROLL 



This roll holds a pointer to the induc- 
tion variable (the DO variable) used in 
each do loop. The pointer specifies the 
appropriate group on the SCALAR roll. Each 
pointer is placed on the roll by Parse as 
the DO loop is encountered in the source 
module. When the loop is closed, the 
pointer is deleted. 

The roll is not used in subsequent 
phases of the compiler. The group size for 
the IND VAR roll is four bytes. 



ROLL 2: NONSTD SCRIPT ROLL 



This roll exists only in Unify; the 
information held on it is taken from the 
SCRIPT roll. The group size for the NONSTD 
SCRIPT roll is variable, with a minimum of 
20 bytes. Each group on the roll describes 
an array reference. 



The format 
group is : 



of the NONSTD SCRIPT roll 

4 bytes 

1 

frequency 



| traits | 

j x : 1 .j j 

| pointer to ARRAY REF roll j j 

,. 4 , 

j pointer to the ARRAY roll 

(. 

j offset 

j. 

(induction variable coefficient 
Y 



j induction variable coefficient j 

i j 

where the first byte of the first word 
contains the trait , which indicates either 
joined or not joined; the value of this 
item is always zero (not joined) for this 
roll. The joined value indicates that the 
subscript described must appear in a gener- 
al register at the time of the reference. 
The remaining three bytes of the first word 
indicate the number of times this subscript 
expression is used. 

The next two words contain pointers to 
rolls holding information on the array and 
the array reference to which this group 
refers. The fourth word holds the array 
offset; this value accounts for element 
size and includes all modification due to 



constant subscripts. The remaining words 
hold the induction variable coefficient 
used in this reference for each loop in the 
nest, beginning with nest level one (the 
outermost loop) and ending with the highest 
nest level at this array reference. 



R OLL 3: NEST SCRIPT ROLL 

I 

This roll contains 'information concern- 
ing array references in nested DO loops. 
The information for this roll is taken from 
the SCRIPT roll as each nest of loops is 
encountered, one nest at a time. The roll 
exists only in Unify, The group size of 
the NEST SCRIPT roll is variable with a 
minimum of 20 bytes. The format of the 
NEST SCRIPT roll is as follows: 

jrr 

H bytes 

r t i 

| traits | frequency | 

i. j . < 

j pointer to ARRAY REF roll | 

, j 

| pointer to the ARRAY roll | 

i. < 

I offset j 

j. j 

| induction variable coefficient | 

Y j 

I 

I 

I 
j. < 

(induction variable coefficient | 

i : j 



where the first byte of the first word 
indicates joined or not joined. The 
remaining three bytes of the first word 
indicate the number of times that this 
subscript expression is used. The next two 
words of the group contain pointers to 
rolls which hold information on the array 
and the array reference to which this entry 
refers. The fourth word holds the actual 
adjusted offset for this array reference. 
The last words of the group contain the 
coefficients of induction variables used in 
the array reference, beginning with the 
nest level one variable and ending with the 
highest nest level. 



ROLL «*: POLISH ROLL 



This roll is used to hold the Polish 
notation generated by Parse, one statement 
at a time. (The Polish notation is moved 
to the AFTER POLISH roll at the end of each 
statement. ) Therefore, the roll contains 



Appendix B: Rolls Used in the Compiler 1*»1 



pointers, drivers, and an occasional con- 
stant. The terms PO and PI are used to 
refer to the bottom and next- to- bottom 
groups on the POLISH roll, respectively. 

In Gen, the Polish notation is moved 
back onto the POLISH roll from the AFTER 
POLISH roll, one statement at a time. It 
is used in the production of object code. 

The group size for the POLISH roll is 
four bytes. The format of the Polish 
notation which appears on this roll is 
described completely in Appendix C. 

The POLISH roll is not used in the other 
phases of the compiler and no information 
is left on it through these phases. 



ROLL 



LOOP SCRIPT ROLL 



This roll contains information on array 
references encountered in the source 
module. The group size for the LOOP SCRIPT 
roll is variable; the minimum is 20 bytes. 
Its format is: 

4 bytes 



r T" 

|traits | 
l x. 



frequency 



pointer to the ARRAY REF roll 



| pointer to the ARRAY roll 
, 



| offset 

,. 

| induction variable coefficient 
j. . 



j induction variable coefficient 

t 



4 bytes 

r 1 

I n | 
j. < 

I k I 
j. T T T 1 

I Cj. | c a | c 3 I c I 

I. J J X 1 

I . I 

I • ! 

I I 

,. T T T ., 

I c I I I I 

L J J X J 

where n is the number of words in the plex, 
exclusive of the word which holds n, k is 
the number of bytes in the literal con- 
stant, and c (the k character) may fall in 
any byte of the last word of the plex. If 
the literal constant appeared in a source 
module DATA or PAUSE statement, the high 
order bit of the second word of the plex 
(k) is set to one; otherwise, it is zero. 

Entries are made on the LITERAL CONST 
roll only during Parse. It is used to hold 
the literal constants throughout the com- 
piler; its format, therefore, does not 
vary. 



ROLL 7: GLOBAL SPROG ROLL 



In Parse this roll holds the names of 
all SUBROUTINES and non-library FUNCTIONS 
referred to in the source module. It also 
holds the names of all subprograms listed 
in EXTERNAL statements in the source 
module, including library subprograms. In 
addition, the compiler itself generates 
calls to the library exponentiation rou- 
tines; the names of these routines are 
entered on the GLOBAL SPROG roll. 



All items are the same as described for the 
NEST SCRIPT roll (roll 3). 

The LOOP SCRIPT roll exists only in 
Unify. It is used by this phase to further 
separate subscripts into two categories: 
standard, those which must appear in gener- 
al registers at the time of reference, and 
nonstandard. 



The group size for the GLOBAL SPROG roll 
is eight bytes. All groups placed on the 
GLOBAL SPROG roll by Parse have the follow- 
ing format: 



r — 

l<- 



-name- 



4 bytes 

-subprogram 

TAG 



■>l 



ROLL 5: LITERAL CONST ROLL 



This roll holds literal constants, which 
are stored as plexes. The group size for 
the LITERAL CONST roll is variable. Each 
plex has the form: 



The TAG appearing in the seventh byte of 
the group indicates the mode and size of 
the FUNCTION value for FUNCTIONS; it has no 
meaning for SUBROUTINES. 

In Allocate, the information on the roll 
is altered to: 
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4 bytes 

i t 1 

| ESD number | displacement | 
|. J. < 

j base table pointer j 

l j 



The ESD number is the one assigned to the 
subprogram. The displacement and the base 
table pointer, taken together, indicate the 
location assigned by Allocate to hold the 
address of the subprogram. The specified 
BASE TABLE roll group holds an address; the 
displacement is the distance in bytes from 
that address to the location at which the 
address of the subprogram will be stored in 
the object module. 



In Gen, the GLOBAL SPROG roll is used in 
the construction of object code, but it is 
not altered. 



In Exit, the roll is used in the produc- 
tion of RLD cards, but is not altered. 



ROLL 8 



FX CONST ROLL 



This roll holds the fullword integer 
constants which are used in the source 
module or generated by the compiler. The 
constants are held on the roll in binary, 
one constant per group. The group size for 
the FX CONST roll is four bytes. 



ROLL 10: DP CONST ROLL 



This roll holds the double-precision 
(8-byte) real constants used in the source 
module or defined by the compiler. 

The constants are recorded in binary 
(double-precision floating point format), 
one constant per group. The group size for 
the DP CONST roll is eight bytes. 

The DP CONST roll is present in this 
format through all phases of the compiler. 



ROLL 11: COMPLEX CONST ROLL 



This roll holds the complex constants of 
standard size (eight bytes) used in the 
source module or generated by the compiler. 
Each complex constant is stored on the roll 
as a pair of U-byte binary floating-point 
numbers, the first represents the real part 
of the constant and the second represents 
the imaginary part. 

The COMPLEX CONST roll exists in the 
format described above for all phases of 
the compiler. The group size is eight 
bytes. 



ROLL 12: DP COMPLEX CONST ROLL 



?h« 



i-OiiiidU 



CUHOl 



S.KJJ.A. J.O 



identical for all phases of the compiler. 
The roll remains in the roll area for all 
phases, even though it is not actually used 
in Allocate and Unify. 



ROLL 9: FL CONST ROLL 



This roll holds the single-precision 
real (floating point) constants used in the 
source module or generated by the compiler. 
Constants are recorded on the roll in 
binary (floating point format), each con- 
stant occupying one group. The group size 
for the FL CONST roll is four bytes. 

The FL CONST roll remains in the roll 
area for all phases of the compiler, 
although it is not actually used in Alloc- 
ate or Unify. The format of this roll is 
identical for all phases. 



This roll holds the complex constants of 
optional size (16 bytes) which are used in 
the source module or generated by the 
compiler. Each constant is stored as a 
pair of double-precision binary floating 
point values. The first value represents 
the real part of the constant; the second 
value represents the imaginary part. The 
group size for the DP COMPLEX CONST roll is 
16 bytes. 

The DP COMPLEX CONST roll exists in this 
format for all phases of the compiler. 



ROLL 13: TEMP NAME ROLL 



This roll is used as temporary storage 
for names which are to be placed on the 
ARRAY or EQUIVALENCE roll. The group size 
for the TEMP NAME roll is eight bytes. The 
format of the group is: 
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4 bytes 

r 1 

!_:: ™ T ^ 

| >| TAG j j 

L X A J 

The TAG appearing in the seventh byte of 
the group indicates, in the format of the 
TAG field of a pointer, the mode and size 
of the variable. 

The TEMP NAME roll is used only during 
Parse and Allocate; it does not appear in 
any later phase of the compiler. 



ROLL 13: STD SCRIPT ROLL 



The information on this roll pertains to 
array references for which the subscript 
expression must appear in a general regist- 
er (joined). 

The roll exists only in Unify and the 
information contained therein is taken from 
the SCRIPT roll. Its structure and con- 
tents are identical to those of the NONSTD 
SCRIPT roll 'oil 2) with the exception 
that the traitj on this roll always indic- 
ate joined. The group size is variable 
with a minimum of 20 bytes. 



This roll is not used after Allocate. 
The group size for the DO LOOPS OPEN roll 
is four bytes. 



ROLL 15: LOOPS OPEN ROLL 



This roll contains the increment and 
terminal values of the induction variable 
used in a DO loop and transfer data for the 
reiteration of the loop. 

Gen creates the roll by establishing an 
entry each time a DO loop is encountered. 
The information is used in generating the 
object code. As a loop is closed, the 
bottom group from the LOOPS OPEN roll is 
pruned. 

The group size is four bytes. Four 
groups are placed in the roll at one time. 
The configuration of a LOOPS OPEN roll 
group is as follows: 

4 bytes 

r t 

| pointer to n 3 (increment) | 

y ^ 

| pointer to n a (terminal value) | 

L ^ 

| LOOP DATA pointer | 

, ^ 

| pointer to return point made label | 
l J 



ROLL 14: TEMP ROLL 



This roll is used as temporary storage 
in Parse and is not used in any later phase 
of the compiler. The group size for the 
TEMP roll is four bytes. 

This roll is used as temporary storage 
for error information in Parse and is not 
used in the other phases of the compiler. 
The group size for the ERROR TEMP roll is 
four bytes. 



ROLL 15: DO LOOPS OPEN ROLL 



ROLL 16: ERROR MESSAGE ROLL 



This roll is used only in Parse. It is 
used during the printing of the error 
messages for a single card of the source 
module. Each group holds the beginning 
address of an error message required for 
the card. It is used in conjunction with 
the ERROR CHAR roll, whose corresponding 
group holds the column number in the card 
with which the error is associated. The 
group size for the ERROR MESSAGE roll is 
four bytes. 



In Parse, as DO statements are encoun- 
tered, pointers to the target labels of the 
DO statements are placed on this roll. 
When the target statement itself is encoun- 
tered, the pointer is removed. 

In Allocate, the roll may contain some 
pointers left from Parse; if any are pres- 
ent, they indicate unclosed DO loops; the 
roll is checked by Allocate and any infor- 
mation on it is removed. 



ROLL 16: TEMP AND CONST ROLL 



This roll is produced in Gen and is used 
in Gen and Exit. It holds all constants 
required for the object module and zeros 
for all temporary storage locations 
required in the object module. 

Binary constants are moved to this roll 
by Gen from the various CONST rolls. This 
roll becomes the object module's temporary 
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storage and constant area. The group size 
for the TEMP AND CONST roll is four bytes. 



ROLL 17: ERROR CHAR ROLL 



This roil is used only during Parse, ana 
is not used in any subsequent phase of the 
compiler. 



ROLL 18: DATA SAVE ROLL 



This roll is used only in Gen, where it 



U ,. "I J ~ 



i~n ■: ,. w 



DATA statements or Explicit specification 
statements which refer to control sections 
different from the control section present- 
ly in process. The roll is a temporary 
storage location for this information, 
since data values are written out for one 
control section at a time. The group size 
is four bytes. 



While a single source module card and 
its error messages are being prepared for 
output, this roll holds the column number 
with which an error message is to be 
associated. The address of the error mes- 
sage is held in the corresponding group on 
the ERROR MESSAGE roll. The group size for 
the ERROR CHAR roll is four bytes. 



ROLL 19: XTEND LABEL (XTEND LBL) ROLL 



This roll is used only by Parse. It 
holds the pointers to the LABEL_roll for 
all labels defined within the innermost DO 
loops that 'are possible extended range 
candidates. The group size of the XTEND 
LABE L roll is four bytes. Each group holds 
a pointer to the LABEL roll . The format of 
the group on the roll is: 



ROLL 17: ADCON ROLL 



This roll is used only in Exit, and is 
not used in previous phases of the compil- 
er. It holds address constants, the loca- 
tions at which they are to be stored, and 
relocation information. The group size is 
16 bytes. The first word of the group 
holds an area code, indicating the control 
section in which the constant exists. The 
second word of the group holds the address 
into which the constant is to be placed; 
the third holds the' constant. The last 
word of the group indicates the relocation 
factor (ESD number) to be used for the 
constant. 



1 byte 



3 bytes 



I TAG 



LABEL roll pointer 



ROLL 18: INIT ROLL 



If the label is a possible re-entry point 

from the extended range of a DO loop, the 

TAG byte contains a X'05'. Otherwise, the 
TAG byte contains a X'OO'. 



ROLL 1 9: EQUIVALENCE TEMP (EQUIV TEMP) 



This roll is used to hold EQUIVALENCE 
roll data temporarily in Allocate, and is 
not used in any other phase of the 
compiler. The group size for the 
EQUIVALENCE TEMP or EQUIV TEMP roll is 
twelve bytes. The format of the group on 
the roll is: 



The group size for the INIT roll is 
eight bytes. The roll is initialized in 
Parse, and used and destroyed in Allocate. 
Each group on the roll holds the name of a 
scalar variable or array listed in the INIT 
option of a DEBUG statement in the source 
module. The format of the group is : 



4 bytes 



j< variable name- 

I- 

^ 



— T" 
>1 






4 bytes 



-variable- 



■~T- 

>l 



offset 



— i 

— I 

-H 

I 

-H 

I 
j 



The offset is the relative address of the 
beginning of the variable within the 
EQUIVALENCE group (set) of which it is a 
member. This roll holds this information 
during the allocation of storage for 
EQUIVALENCE variables. 
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ROLL 20; XTEND TARGET L ABEL (XTEND TARG 
LBL) ROLL 



This roll is used only by Parse. The 
group size of the XTEND TARGET LABEL roll 
is four bytes. Each group holds a pointer 
to the LABEL roll for each label that 
appears in any transfer statement (e.g., GO 
TO, Arithmetic IF statements) within a DO 
loop. These groups indicate transfers out 
of an innermost DO loop and a possible 
extended range. The format of the group is 
the same as Roll 19, X TEND LABEL roll. 



1 byte 



I TAG 



3 bytes 



| LABEL roll pointer 
-X 



If the TAG byte contains a X 1 40*, this 
indicates that the target label also 
appears in a transfer statement outside the 
DO loop and may be a possible re-entry 
point (if the label is defined within the 
loop) . Otherwise, the TAG byte contains a 
X'OO'. 



4 bytes 

i t 1 

| traits | frequency | 

j. ± ., 

j ARRAY REF pointer j 

f .| 

j LOOP CONTROL pointer j 

i j 

The frequency indicates how many times 
within a loop the register is used. The 
registers are symbolic registers that are 
converted to real registers and/or tem- 
porary storage locations. The pointer to 
the ARRAY REF roll is actually a thread 
which indicates each place that this 
register is required in the loop. The last 
word, the pointer to the LOOP CONTROL roll, 
designates where the register in question 
was initialized. (The particular informa- 
tion is contained in the second word of the 
entry on the LOOP CONTROL roll.) 



ROLL 21: BASE TABLE ROLL 



ROLL 20; EQUIVALENCE HOL D (EQUIV HOLD) 



ROLL 



This roll is used to hold EQUIVALENCE 
roll data temporarily in Allocate, and is 
not used in any other phase of the compil- 
er. The group size for the EQUIVALENCE 
HOLD roll is twelve bytes. The format of 
the group on the roll is: 



4 bytes 



r 

J<— 

f 



■name- 



-variable- 

T 

>| 

A 

offset 



The offset is the relative address of the 
beginning of the variable within the 
EQUIVALENCE group (set) of which it is a 
member. This roll holds this information 
during the allocation of storage for 
EQUIVALENCE variables. 



This roll is constructed by Allocate,, 
and remains in the roll area for all 
remaining phases of the compiler. The BASE 
TABLE roll becomes the object module base 
table, which holds the base addresses used 
in referring to data in the object module. 

The group size for this roll is eight 
bytes. One group at a time is added to 
this roll by Allocate. The first word 
holds the area code which indicates the 
relocation factor by which the base table 
entry must be modified at object time; each 
unique area code also defines an object 
module control section. The second word 
holds a relative address within the control 
section defined by the area code; this is 
the value which is in the corresponding 
base table entry prior to modification by 
the linkage editor. 

The entire BASE TABLE roll is con- 
structed by Allocate. 



ROLL 22: ARRAY ROLL 



ROLL 20: REG ROLL 



This roll contains information concern- 
ing general registers required in the 
execution of DO loops in the object module. 

The group size of the REG roll is twelve 
bytes. The roll is used only in Unify. 
Each group has the following format: 



This roll is used throughout the compil- 
er to hold the required information de- 
scribing arrays defined in the source 
module. 

In Parse, the name and dimension infor- 
mation is added to the roll for each array 
definition encountered. The group size for 
the ARRAY roll is 20 bytes. The format of 
the group is: 
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4 bytes 
• — array name- 



■> | TAG | 

.-X X. 



ARRAY DIMENSION pointer 
number of elements 
array offset 



The TAG appearing in the seventh byte of 
the group indicates, in the format of the 
TAG field of a pointer, the mode and size 
of the arrav variable. The pointer in the 
third word of the group points to the 
beginning of the plex on the ARRAY 
DIMENSION roll, which describes the dimen- 
sions of the array. The number of elements 
in the array is a constant, unless the 
array has dummy dimensions; in the latter 
case, Parse puts a dummy pointer to a 
temporary location in this word of the 
group. 

The array offset is the summation of the 
multipliers for the array subscripts. If 



the array dimensions are rsl, n2,...n7, then 
the multipliers are 1, nl, nl*n2, nl*n2*n3, 
. . . nl*n2*n3*n4*n5*n6, where the size of the 
element of the array is not considered. 
This value, after it i multiplied by the 
element size, is used as a subtractive 
offset for array references. The offset is 
placed on the roll c*:> , constant unless the 
array has dummy dimensions; in the latter 
case, a dummy pointer to a temporary loca- 
tion is placed in the last word of the 
group. 



In Allocate, the first two words of the 
ARRAY roll group are replaced with tne 

fnl 1 ouri nrr • 



U bytes 

r t t i 

| TAG |DBG/CEAD | displacement | 
y x_J x ^ 

| base table pointer | 

l J 



The TAG is unchanged, except in location, 
from Parse. The DBG/CEAD flag is logically 
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split into two hexadecimal values. The 
first of these indicates debug references 
to the variable; its value is 1 for INIT, 2 
for SUBCHK, for neither, and 3 for both. 
The second hexadecimal value is nonzero if 
the array is in COMMON, a member of an 
EQUIVALENCE set, used as an argument to a 
subprogram, or a dummy; it is zero other- 
wise. The displacement and the base table 
pointer, taken together, indicate the 
beginning address of the array. The base 
table pointer specifies the BASE TABLE roll 
group to be used in references to the 
array; the displacement is the distance in 
bytes from the address held in that group 
to the location at which the array begins. 
If the array is a dummy, the base table 
pointer is replaced by a pointer to the 
GLOBAL DMY roll group defining the array, 
and the displacement is zero. 

The third, fourth, and fifth words of 
the ARRAY roll group are not modified by 
Allocate. 

The ARRAY roll remains in storage 
throughout the compiler, and it is con- 
sulted, but not modified, by the phases 
following Allocate. 



ROLL 23: DMY DIMENSION ROLL 



This roll is used first in Allocate, 
where it holds pointers to the array 
definition and the entry statement with 
which dummy array dimensions are asso- 
ciated. The group size of the DMY DIMEN- 
SION roll is four bytes. Two groups are 
added to the roll at a time to accommodate 
this information; the format is: 



roll is constructed by Gen and holds point- 
ers to the arguments to subprograms in the 
order in which they are presented in the 
subprogram reference. These pointers may, 
therefore, point to the SCALAR, ARRAY, 
GLOBAL SPROG, or TEMP AND CONST rolls (the 
last roll holds arguments which are 
expressions or constants) . The value zero 
is placed on this roll for arguments whose 
addresses are computed and stored in the 
object module argument list area. 

The TAG fields of the pointers on this 
roll contain the value zero except for the 
TAG field of the last pointer for a single 
subprogram reference; this field contains 
the value 80. 

The contents of the SPROG ARG roll are 
punched by Exit. The group size for the 
SPROG ARG roll is four bytes. 



ROLL 24: ENTRY NAMES ROLL 



In Parse, this roll holds all ENTRY 
names defined in the source subprogram, and 
pointers to the locations on the GLOBAL DMY 
roll at which the definitions of the dummy 
arguments corresponding to the ENTRY begin. 
The group size for the ENTRY NAMES roll is 
16 bytes. The format of the group is: 



4 bytes 



< ENTRY name- 



h 



— T" 
>l 



h" 



4 bytes 

r 1 

| ARRAY pointer | 

| ., 

| ENTRY NAMES pointer j 

l j 



The dummy arguments corresponding to the 
ENTRY are listed on the GLOBAL DMY roll in 
the order in which they are presented in 
the ENTRY statement. 



In Gen, the DMY DIMENSION roll is used 
in the generation of temporary locations 
for the dummy dimensions. This operation 
is performed when code is being produced 
for the prologue with which the dummy 
dimension is associated. 

The DMY DIMENSION roll is not used by 
later phases of the compiler. 



ROLL 23: SPROG ARG ROLL 



This roll becomes the subprogram argu- 
ment list area of the object module. The 



In Allocate, the ENTRY NAMES roll is 
used in the check to determine that scalars 
with the same names as all ENTRYs have been 
set. A pointer to the scalar is placed in 
the fourth word of the group by this phase. 

In Gen, during the production of the 
initialization code (the object module 
heading), the first word of the group is 
replaced by a pointer to the ADCON roll 
indicating the location of the prologue, 
and the second word is replaced by a 
pointer to the ADCON roll indicating the 
location of the epilogue. During the pro- 
duction of code for the prologue, the first 
pointer (the first word of the group) is 
replaced by a pointer to the ADCON roll 
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which indicates the entry point for the 
ENTRY. 

This roll is not required after the Gen 
phase. 



The GLOBAL DMY roll is used but 
fied in Gen and Exit. 



ROLL 26: ERROR ROLL 



unmodi- 



ROLL 25; GLOBAL DMY ROLL 



In Parse, each group on the roll con- 
tains the name of a dummy listed in a dummy 
argument list for the principle entry or 
for an ENTRY statement in a source subpro- 
gram. A flag also appears in each group 
which indicates whether the dummy is a 
"call by name" or a "call by value" dummy. 
The group size is eight bytes. The format 
of the group in Parse is: 



4 bytes 



r — 

l<- 
I— 



-dummy name- 



— T - 
.-X. 



flag 



where the dummy name occupies the first six 
bytes of the group. 

Label dummies, indicated by asterisks in 
the source module, are not listed on this 
roll. With this exception, however, the 
dummy lists from the source subprogram are 
entered on this roll as they appear in the 
source statements. The end of each dummy 
list is signaled by a marker symbol on the 
roll. Since each of the dummy lists is 
represented on the roll, the name of a 
single dummy may appear more than once. 

In Allocate, the information in each 
group is replaced by: 

4 bytes 

i t t 1 

| TAG | DBG/flag | displacement | 
| x x ., 

| base table pointer | 

L j 

where the base table pointer indicates the 
group on the BASE TABLE roll to be used for 
references to the dummy, and the displace- 
ment (in the third and fourth bytes) indi- 
cates the distance in bytes from the 
address stored in that BASE TABLE roll 
group to the location of the dummy. The 
"flag" occupies the second hexadecimal 
character of the second byte and is 
unchanged from Parse, indicating call by 
name if it is on. The first hexadecimal 
value in that byte indicates debug 
references to the variable; its value is 1 
for INIT, 2 for SUBCHK, for neither, and 
3 for both. The TAG indicates the mode and 
size of the dummy. 



This roll is used only in Parse and 
holds the location within the statement of 
an error, and the address of the error 
message for all errors encountered within a 
single statement. As the statement is 
written on the source listing, the informa- 
tion in the ERROR roll groups is removed, 
leaving the roll empty for the processing 
of the next statement. 

The group size is four bytes. Two 
groups are added to this roll at a time: 
(1) the column number of the error, count- 
ing from one at the beginning of the source 
statement and increasing by one for every 
card column in the statement, and (2) the 
address of the message associated with the 
particular error encountered. 



ROLL 26: ERROR LBL ROLL 



This roll is used only in Allocate, 
where it holds labels which are referred to 
in the source module, but which are unde- 
fined. These labels are held on this roll 
prior to being written out as undefined 
labels or unclosed DO loops. The group 
size for the ERROR LBL roll is four bytes. 



ROLL 27: LOCAL DMY ROLL 



This roll holds the names of the dummy 
arguments to a statement function while the 
statement function is being processed by 
Parse. The group size is eight bytes. The 
format of the group is: 



4 bytes 



-dummy name- 

T 

> | 



The information is removed from the roll 
when the processing of the statement func- 
tion is complete. 

This roll does not appear in any subse- 
quent phase of the compiler; however, 
pointers to it appear in the Polish nota- 
tion produced by Parse and these pointers 
are, therefore, processed by Gen. 
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ROLL 28: LOCAL SPROG ROLL 



t?i Pairs©- the roil holds the names of 
all statement functions as they are encoun- 
tered in the source module. The group size 
for the LOCAL SPROG roll is eight bytes. 
The format of the group is: 

4 bytes 

r 1 

| < stmt, function 1 

| T T ) 

J name >| TAG | | 

L A L J 

The TAG appearing in the seventh byte of 
the group indicates, in the format of the 
TAG field of a pointer, the mode and size 
of the function value. 



a group. Pointers are added to the roll 
when the labels are found as arguments in 
CALL statements. The group size for the 

"IT T 



ROLL 30: ERROR SYMBOL ROLL 



This roll is used only in Allocate, 
where it holds any symbol which is in 
error, in preparation for printing. The 
group size for the ERROR SYMBOL roll is 
eight bytes. The symbol (variable name, 
subprogram name) occupies the first six 
bytes of the group. The remaining two 
bytes are set to zero. 



In Allocate, the first four bytes of 
each group are replaced by a pointer to the 
BRANCH TABLE roll group which has been 
assigned to hold the address of the state- 
ment function. 

The LOCAL SPROG roll is used by Gen and 
Exit, but it is not modified in those 
phases. 



ROLL 29: EXPLICIT ROLL 



This roll is used in Parse and Allocate, 
where it holds the names of all variables 
defined by Explicit specification state- 
ments. The group size for the EXPLICIT 
roll is eight bytes. The format of the 
arouo in both phases is: 



4 bytes 
-variable name- 
TAG 



I— 



— T" 

>l 
—J.. 



where the TAG (seventh byte) indicates the 
mode and size of the variable. 

Groups are entered on this roll by 
Parse; the roll is consulted by Allocate, 
but not altered. 



ROLL 31: NAMELIST NAMES ROLL 



In Parse, this roll holds the NAMELIST 
names defined in the NAMELIST statement by 
the source module. The group size for the 
NAMELIST NAMES roll is twelve bytes. These 
groups are placed on the roll in the 
following format: 



4 bytes 

NAMELIST 

T 

—name > | 

pointer to NAMELIST items 



r — 

l<- 



where the pointer indicates the first vari- 
able in the list associated with the NAME- 
LIST name. In Allocate, the content of the 
group on the NAMELIST NAMES roll is changed 
to reflect the placement of the correspond- 
ing NAMELIST table in the object module. 
The format of the first two words of the 
modified group is: 

4 bytes 

r t 1 

| | displacement | 
j. j ., 

| base table pointer , | 

i j 



ROLL 30: CALL LBL ROLL 



This roll is used only in Parse, where 
it holds pointers to the LBL roll groups 
defining labels which are passed as argu- 
ments in source module CALL statements. 
The pointers are held on this roll only 
temporarily, and are packed two pointers to 



where the base table pointer indicates the 
group on the BASE TABLE roll to be used for 
references to the NAMELIST table, and the 
displacement (bytes 3 and U) indicates the 
distance in bytes from the address in that 
BASE TABLE roll group to the location of 
the beginning of the NAMELIST table. 

This roll is used, but not modified, in 
Gen and Exit. 
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ROLL 32: NAMELIST ITEMS ROLL 



This roll holds the variable names 
listed in the namelists defined by the 
source module. The group size for the 
NAMELIST ITEMS roll is eight bytes. Infor- 
mation is placed on the roll by Parse in 
the following form: 



r~" 
l<- 



4 bytes 
-variabl* 



-name- 



— T" 
>l 



pointer to the dummy dimension variable on 
the SCALAR roll, and all affected multip- 
liers are pointers to temporary locations 
(on the TEMP AND CONST roll) . The multip- 
liers for an array with dimensions nl, n2 f 
n3, ..., n7 are 1, nl, nl*n2,... # 
nl*n2*n3*nU*n5*n6. 

The ARRAY DIMENSION roll is present, but 
not modified in Unify, Gen, and Exit. 



ROLL 34: BRANCH TABLE ROLL 



A marker symbol separates namelists on the 
roll. 

The roll is used in this format by 
Allocate and is destroyed. It does not 
appear in later phases. 



ROLL 33: ARRAY DIMENSION ROLL 



This roll is used to hold dimension 
information for the arrays defined in the 
source module. The group size for the 
ARRAY DIMENSION roll is variable. The 
information is placed on the roll by Parse 
in the form of a plex, as follows: 



U bytes 



dimension 
multiplier 



dimension 
multiplier 



V- 



dimension 
multiplier 



This roll becomes the object module 
branch table. During Allocate, where the 
roll is first used, the size of the roll is 
determined, and some groups are actually 
placed on it. These groups contain the 
value zero, and each group refers to a 
source module label. 

In Gen, the information for the BRANCH 
TABLE roll groups is supplied as each 
labeled statement is processed. The group 
size for the BRANCH TABLE roll is eight 
bytes. The format of the group is: 

4 bytes 

r 1 

| area code | 

,. -I 

| relative address | 

l J 

where the area code provides the reference 
for linkage editor modification of the 
corresponding branch table word, and the 
relative address is the relative location 
of the label in the control section (area) 
in which it appears. Branch table (and, 
hence, BRANCH TABLE roll) entries are pro- 
vided for all branch target labels, state- 
ment functions, and made labels (labels 
constructed by the compiler to refer to 
return points in DO loops and to the 
statements following Logical IF state- 
ments) . 

The roll is retained in the Gen format 
until it is written out by Exit. 



where n is the number of words in the plex, 
exclusive of itself. As many dimensions 
and corresponding multipliers appear as 
there are dimensions declared for the 
array. 

Unless the array is a dummy and has 
dummy dimensions, each dimension and multi- 
plier is a constant. When dummy dimensions 
do appear in the array definition, the 
corresponding dimension on this roll is a 



ROLL 35: TEMP DATA NAME ROLL 



This roll is used only in Parse, where 
it holds pointers and size information for 
variables listed in DATA statements or in 
Explicit specification statements which 
specify initial values. Information is 
held on this roll while the statement is 
being processed. 
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The group size for the TEMP DATA NAME 
roll is four bytes. Four groups are added 
to the TEMP DATA NAME roll for each vari- 
able listed in the statement bein^ scanned* 
They are in the following sequence: 

4 bytes 

r 1 

| element size (bytes) | 

j. <, 

j pointer to variable j 

Y -I 

| number elements set | 

F ^ 

( element number j 

L j 



tains a pointer to the value which is held 
in the corresponding general register at 
the present point in the object module; as 
the contents of the general registers are 
changed, the pointers are changed. The 
pointers are used primarily to indicate 
that the general register is in use and the 
mode of the value in it. They are used for 
optimizing only in the case of the general 
registers which are loaded from the base 
table and the general registers used for 
indexing. If the general register corre- 
sponding to a specific group is not in use, 
the group holds the value zero. 



The third group specifies the number of 
elements of the variable being set by the 
DATA statement or the Explicit specifica- 
tion statement. If a full array is set, 
this is the number of elements in the 
array; if a specific array element is set, 
this word contains the value one. 

The fourth group indicates the first 
element number being set. If a full array 
is being set, this word holds the value 
zero; otherwise, it holds the element 
number. 



ROLL 37; EQUIVALENCE ROLL 



In Parse, this roll holds the names of 
all variables listed In source module 
EQUIVALENCE statements. One group is used 
for each variable name listed in the source 
statement, and EQUIVALENCE sets are 
separated from each other by a marker 
symbol. The group size for the EQUIVALENCE 
roll is twelve bytes. The format of the 
group is: 



ROLL 36: TEMP POLISH ROLL 



This roll is used only in Parse, where 
it holds the Polish notation for a single 
DATA group during the scanning of that 
group. In an Explicit specification state- 
ment, a DATA group is defined to be a 
single variable and the associated con- 
stants; in a DATA statement, a DATA group 
is the set of variables listed between a 
pair of slash characters and the constants 
associated with that set. 

This roll is used because any error 
encountered in a DATA group will cause the 
Polish notation for the entire group to be 
canceled. In an Explicit specification 
statement, the type information on the 
variable is retained when the data is bad; 
if, however, the type information is bad, 
the data is also lost. The group size is 
four bytes. 



4 bytes 
-variable — 






|< 

j. 

| name 

, j 

j EQUIVALENCE OFFSET pointer 

i 



The pointer to the EQUIVALENCE OFFSET roll 
points to the first word of a plex on that 
roll which holds the subscript information 
supplied in the EQUIVALENCE statement. If 
no subscript was used on the variable in 
the EQUIVALENCE statement, the value zero 
appears in the third word of the group on 
the EQUIVALENCE roll. 

The roll is used and destroyed in Alloc- 
ate, during the assignment of storage for 
EQUIVALENCE variables. 



ROLL 3 6 



FX AC ROLL 



ROLL 37: BYTE SCALAR ROLL 



This roll is used in Gen only and is a 
fixed length roll of 16 groups. The groups 
refer to the 16 general registers in order. 

The group size for the FX AC roll is 
four bytes. Each group on the roll con- 



This roll is usee", only in Allocate, 
where it holds (temporarily) the names of 
1-byte scalar variables. The group size 
for the BYTE SCALAR roll is eight bytes. 
The format of the group is: 
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4 bytes 



|< scalar name 

I T 

J >| TAG 

I X 



where the TAG field indicates the mode and 
size of the variable. 



ROLL 38 



USED LIB FUNCTION ROLL 



In Parse, the roll holds the names and 
other information for all library FUNCTIONS 
which are actually referenced in the source 
module. The group size for the USED LIB 
FUNCTION roll is twelve bytes. The infor- 
mation is placed on the roll in the follow- 
ing format: 



r~" 
l<- 
I— 



4 bytes 
-FUNCTION- 



-name- 



>l 



TAG 



I TAG 



flag 



| no. arguments 



The TAG appearing in byte 7 indicates the 
mode and size of the function value. The 
TAG appearing in byte 9 indicates the mode 
and size of the arguments to the FUNCTION. 
The flag in byte 10 indicates whether the 
FUNCTION is in-line and, if it is, which 
generation routine should be used. If the 
flag is zero, a call is to be generated. 
The last two bytes hold the number of 
arguments to the FUNCTION. The maximum 
number of arguments allowed for the MIN and 
MAX FUNCTIONS is 16,000. 

In Allocate, the information in the 
first two words of the group is altered to: 

4 bytes 

r t t T 

I TAG | | displacement | 
y x j. ., 

| base table pointer | 

l j 

where the base table pointer indicates the 
group on the BASE TABLE roll to be used in 
referring to the address of the subprogram. 
The displacement is the distance in bytes 
from the contents of the base table entry 
to the location at which the address of the 
subprogram will be stored. The TAG byte is 
unchanged, except in location, from Parse. 

The USED LIB FUNCTION roll is consulted 
by Gen in the construction of object code, 
but it is not modified. It is also pre- 
sent, but not modified, in Exit. 



ROLL 39: COMMON DATA ROLL 



This roll holds the names of all COMMON 
variables as defined in source module COM- 
MON statements. A marker symbol separates 
COMMON blocks on this roll. All informa- 
tion is placed on this roll in Parse. 

The group size is eight bytes. The 
first six bytes of each group hold the 
nameof the COMMON variable; the remaining 
two bytes are set to zero, as follows: 



4 bytes 



r — 

l<- 



-variable name- 



~t- 
>l 



In Allocate, the information on this 
roll is used and destroyed. The roll is 
not used in later phases. 



ROLL 39: HALF WORD SCALAR ROLL 



The roll is used only in Allocate, where 
it holds (temporarily) the names of half- 
word scalar variables defined in the source 
module. The group size for the HALF WORD 
SCALAR roll is eight bytes. The format of 
the group is: 



4 bytes 



r — 
l<- 
I— 



-scalar name- 
t 



TAG 



where the TAG indicates the mode and size 
of the variable. 



ROLL UP : COMMON NAME ROLL 



In Parse, this roll holds the name of 
each COMMON block, and a pointer to the 
location on the COMMON DATA roll at which 
the specification of the variables in that 
block begins. The group size for the 
COMMON NAME roll is twelve bytes. The 
format of the group is: 



4 bytes 



!< 



-block name- 



— T - 

>l 



COMMON DATA pointer 
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The pointer points to the first variable in 
the list of names which follows the block 
name in the COMMON statement; since a 
single COMMON block may be mentioned more 
than once in source module COMMON state- 
ments, the same COMMON name may appear more 
than once on this roll. The information is 
placed on this roll as COMMON statements 
are processed by Parse. 

In Allocate, the roil is rearranged and 
the last word of each group is replaced by 
the size of the COMMON block in bytes, 
after duplicate COMMON names have been 
eliminated. The size is written out by 
Allocate and the roll is destroyed. 



ROLL 10: TEMP PNTR ROLL 



The group size for the TEMP PNTR roll is 
four bytes. This roll is used only in Gen, 
and holds pointers to those groups on the 
TEMP AND CONST roll that represent object 
module temporary storage locations. The 
information recorded on this roll is main- 
tained so that temporary storage created 
for one statement can be reused by subse- 
quent statements. 



4 bytes 
n 



i 
i 



subscript 1 
subscript 2 



subscript n 



where n is the number of words in the plex 
exclusive of itself and, therefore, also 
the number of subscripts. Each subscript 
is recorded as an integer constant. 

The connection between a plex on this 
roll and the corresponding EQUIVALENCE 
variable is made by a pointer which appears 
on the EQUIVALENCE roll and points to the 
first word of the appropriate plex on this 
roll. 

In Allocate, the EQUIVALENCE OFFSET roll 
is used in the allocation of storage for 
EQUIVALENCE variables. It is destroyed 
during this phase, and does not appear in 
the later phases of the compiler. 



ROLL HI: IMPLICIT ROLL 



ROLL 42: FL AC ROLL 



The roll is used only in Parse and 
Allocate, where it holds the information 
supplied by the source module IMPLICIT 
statement. The group size for the IMPLICIT 
roll is four bytes. Its format is: 



1 byte 
letter 



1 byte 1 byte 



1 byte 



TAG 



._ j.. 



This information is placed on the roll by 
Parse. The TAG field in the third byte of 
the group indicates, in the format of the 
TAG field of a pointer, the mode and size 
assigned to the letter by means of the 
IMPLICIT statement. 



This roll is used in Gen only, and is a 
fixed length roll of four groups. The 
groups refer to the four floating-point 
registers, in order. 

The group size for the FL AC roll is 
four bytes. Each group on the roll con- 
tains a pointer to the value which is held 
in the register at the present point in the 
object program; as the contents of the 
registers change, the pointers are changed. 
These pointers are used primarily to indic- 
ate that the register is in use and the 
mode of the value in it. If the register 
is not in use, the corresponding group on 
this roll contains zero. 



The IMPLICIT roll is used 
and destroyed. 



by Allocate, 



ROLL 43: LBL ROLL 



ROLL 42: EQUIVALENCE OFFSET ROLL 



This roll \s constructed during the 
operation of Parse and holds the subscripts 
from EQUIVALENCE variables in the form of 
plexes. The group size for the EQUIVALENCE 
OFFSET roll is variable. Each plex has the 
form: 



This roll holds all labels used and/or 
defined in the source module. Each label 
is entered on the roll by Parse when it is 
first encountered, whether in the label 
field or within a statement. 

The group size for the LBL roll is four 
bytes. In Parse, the format of the LBL 
roll group is: 
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The SCALAR roll is checked, but 
fied, during Unify, Gen, and Exit. 



modi- occupy fewer than 16 characters are right- 
adjusted in the group with leading zeros. 



ROLL 4 4 



HEX CONST ROLL 



ROLL 45: DATA VAR RCLL 



This roll 
stants used 
statements. 



holds the hexadecimal con- 
in source module DATA 



The format of the roll is identical for 
all phases of the compiler. The group size 
is 16 bytes. Two hexadecimal characters 
are packed to a byte, and constants which 



In Parse, this roll holds the names of 
variables listed in DATA statements and 
variables for which data values are pro- 
vided in Explicit specification statements. 
The names are entered on the roll when they 
are found in these statements. The group 
size for this roll is eight bytes. The 
groups have the following form: 
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1 byte 



TAG 



3 bytes 
binary label 



ROLL 4 4 



SCALAR ROLL 



where the first byte is treated as the TAG 
field of a pointer, and the remaining three 
bytes contain the label, converted to a 
binary integer. 



In the TAG field, the mode portion (the 
first four bits) is used to indicate 
whether the label has been defined; the 
remainder of the TAG field is used to 
indicate whether the label is the target of 
a jump, the label of a FORMAT, or neither. 



The leftmost four bits of the TAG byte 
are used as follows: 

8 = Label is defined 

= Label is undefined 



The rightmost four bits of the TAG byte 
indicate the following: 



1 = This is the label of the target 
of a jump (GO TO) statement. 



3 = This is the 
statement. 



label of a FORMAT 



5 = This label is 
entry point wi 
DO loop that ma 
extended range, 
the hexadecimal 
Gen that the la 
re-entry point 
then restores 
that were s 
extended range 



a possible re- 
thin an innermost 
y have a possible 
(Parse inserts 

5 to indicate to 
bel is a possible 
; the Gen phase 

those registers 
aved before the 
was entered. ) 



= None of the above conditions. 

In Allocate, the lower three bytes of 
each LBL roll group defining a jump target 
label are replaced by the lower three bytes 
of a pointer to the BRANCH TABLE roll 
group, which will hold the location of the 
label at object time. Each group defining 
a FORMAT statement label is replaced (lower 
three bytes only) with a pointer to the 
FORMAT roll group which holds the base 
pointer and displacement for the FORMAT. 
Groups defining the targets of unclosed DO 
loops are cleared to zero. 

In Gen, the LBL roll is used to find the 
pointers to the BRANCH TABLE and FORMAT 
rolls, but it is not altered. 



In Parse, the names of all unsubscripted 
variables which are not dummy arguments to 
statement functions are listed on the roll 
in the order of their appearance in active 
(non-specification) statements in tfte 
source module. Variables which are defined 
in specification statements, but which are 
never used in the source module, are not 
entered on the roll. The group size for 
the SCALAR roll is eight bytes. The format 
of the group is: 



l<- 



4 bytes 
■scalar name 

TAG 



>l 
._J.. 



The TAG field appearing in the seventh byte 
of the group indicates the mode and size of 
the variable in the format of the TAG field 
of a pointer. 

In Allocate, the information left on the 
SCALAR roll by Parse is replaced by infor- 
mation indicating the storage assigned for 
the variable. The resulting format of the 
group is: 

4 bytes 

r t t 1 

| TAG |DBG/CEAD | displacement | 
j. x x ., 

J base table pointer | 

L j 

The TAG field appearing in the first byte 
is unchanged, except in location, from the 
TAG field held in the SCALAR roll group 
during Parse. The DBG/CEAD flag (in the 
second byte) is logically split into two 
hexadecimal values. The first of these 
indicates debug references to the variable; 
the value is 1 for a scalar referred to in 
the INIT option; otherwise, the value is 
zero. The second hexadecimal value is 
nonzero if the variable is in COMMON, a 
member of an EQUIVALENCE set, or an argu- 
ment to a subprogram or a global dummy; 
otherwise, it is zero. The displacement in 
bytes 3 and 4, and the base table pointer 
in the second word, function together to 
indicate the storage location assigned for 
the variable. The base table pointer spe- 
cifies a BASE TABLE roll group; the dis- 
placement is the distance in bytes from the 
location contained in that group to the 
location of the scalar variable. If the 
scalar is a call by name dummy, the base 
table pointer is replaced by a pointer to 
the GLOBAL DMY roll group defining it, and 
the displacement is zero. 
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4 bytes 



i— 



-variable name— — — ™~. — _^_— \ 



->l 



H 



This information is used to ensure that 
no data values are provided in the source 



The ini.Oi.ina— 
tion is left on the roll throughout Parse, 
but is cleared before Allocate operates. 

In Allocate, binary labels and the names 
of statement functions, scalar variables, 



ROLL 47: FULL WORD SCALAR ROLL 



This roll is used only in Allocate, 
where it holds the names of all fullword 
scalar variables defined by the source 
module. The group size is eight bytes. 
The format of the group on the roll is: 



r — 
l<- 



-scalar name — 



— T 

■> I TAG 



library functions are placed on the roll in 
order. The group size for this roll is 
four bytes. Each label entered on the roll 
occupies one word; the names occupy two 
words each and are left- justified, leaving 
the last two bytes of each name group 
unused. 



where the TAG indicates the mode and size 
of the variable. This information is held 
on this roll only temporarily during the 
assignment of storage for scalar variables. 



The encoded information is placed on 
this roll by Allocate as its operations 
modify the rolls on which the information 
was originally recorded by Parse. Thus, 
all the labels appear first, in the order 
of their appearance on the LBL roll, etc. 
The information is used by the Exit phase 
in producing the object module listing (if 
the LIST option is specified by the user) . 



ROLL 46: LITERAL TEMP (TEMP LITERAL) ROLL 



This roll is used only in Parse, where 
it holds literal constants temporarily 
while they are being scanned. The group 
size for the LITERAL TEMP or TEMP LITERAL 
roll is four bytes. Literal constants are 
placed on the roll one character per byte, 
or four characters per group. 



ROLL 48: COMMON AREA ROLL 



This roll is used only in Allocate, 
where it holds COMMON block names and sizes 
temporarily during the allocation of COMMON 
storage. The group size for the COMMON 
AREA roll is twelve bytes. The format of 
the group on the roll is: 



4 bytes 



r — 

l<- 
r- 



-block name- 



— T" 

->l 



block size (bytes) 



ROLL 48: NAMELIST ALLOCATION ROLL 



ROLL 47: COMMON DATA TEMP ROLL 



This roll holds the information from the 
COMMON DATA roll temporarily during the 
operation of Allocate, which is the only 
phase in which this roll is used. The 
qroup size for the COMMON DATA TEMP roll is 
eight bytes. The format of the group is 
identical to that of the COMMON DATA roll, 
namely : 






4 bytes 
-variable- 



name — 



— T" 

>l 
X. 



This roll is used only in Allocate, 
where it holds information regarding NAME- 
LIST items temporarily during the alloca- 
tion of storage for the NAMELIST tables. 
The group size for this roll is twelve 
bytes. The format of the group is: 



4 bytes 



r — 



-variable name- 



— T" 

->l 



pointer 



where the pointer indicates the group 
defining the variable on either the SCALAR 
or ARRAY roll. 
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ROLL 49: COMMON NAME TEMP ROLL 



This roll is used only in Allocate, 
where it holds the information from the 
COMMON NAME roll temporarily. The group 
size for the COMMON NAME TEMP roll is 
twelve bytes. The format of the group is 
therefore identical to that of the COMMON 
NAME roll: 



4 bytes 



r — 

l<- 



- block name- 



I 

I 



— T" 

->l 
—J.. 



COMMON DATA pointer 



where the COMMON DATA pointer points to the 
list of variables in the COMMON block. 



4 bytes 

r t n 

| area code | ESD # \ 

j. j < 

| address | 

i J 

where the area code indicates the control 
section in which the variable or constant 
is contained. The ESD number governs the 
modification of the location by the linkage 
editor, and the address is the location 
requiring modification. 

Information is placed on this roll by 
both Allocate and Exit, and the RLD cards 
are written from the information by Exit. 
The entries made on the RLD roll by Alloc- 
ate concern the NAMELIST tables; all 
remaining entries are made by Exit. 



ROLL 52: COMMON ALLOCATION ROLL 



ROLL 50: EQUIV ALLOCATION ROLL 



This roll is used only during Allocate, 
and is not used in any other phase of the 
compiler. WT~v- the allocation of storage 
for EQUIVALENCE variables has been com- 
pleted, the information which has been 
produced on the GENERAL ALLOCATION roll is 
moved to this roll. The group size for the 
EQUIV ALLOCATION roll is twelve bytes. The 
format of the group is, therefore, ident- 
ical to that on the GENERAL ALLOCATION 
roll: 



4 bytes 






-variable— 

T 



I h 



-name- 



— >| 



y 

I 

i 



displacement j 



base table pointer 



where the base table pointer indicates the 
group on the BASE TABLE roll which will be 
used for references to the variable. The 
displacement is the distance in bytes from 
the location indicated in the BASE TABLE 
roll group to the location of the variable. 



This roll is used only in Allocate and 
is not used in any other phase of the 
compiler. When the allocation of COMMON 
storage has been completed, the information 
which has been produced on the GENERAL 
ALLOCATION roll is moved to this roll. The 
group size for the COMMON ALLOCATION roll 
is twelve bytes. The format of the group 
is, therefore, identical to that on the 
GENERAL ALLOCATION roll: 






4 bytes 

variable 

t 

-name > | displacement 

j 

base table pointer 



where the base table pointer indicates the 
group on the BASE TABLE roll which will be 
used for references to the variable. 

The displacement is the distance in 

bytes from the location indicated in the 

BASE TABLE roll group to the location of 
the variable. 



ROLL 51: RLD ROLL 



ROLL 52: LOOP CONTROL ROLL 



This roll is used only in Allocate and 
Exit; it is not used in Parse. In both 
Allocate and Exit, the roll holds the 
information required for the production of 
RLD cards. The group size for the RLD roll 
is eight bytes. The group format is: 



This roll is created by Unify and is 
used by Gen. The information contained on 
the roll indicates the control of a loop. 

The group size for the LOOP CONTROL roll 
is twelve bytes. The format of the LOOP 
CONTROL roll group in Unify and Gen is: 
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4 bytes 

r t- 1 

| traits | coefficient ] 

j. x 4 

| register (tuis loop) j 

j. ^ 

] base or register (outer loop) | 

l j 

where the first byte of the first word 
(traits) indicates whether the coefficient 
is initiated by a direct load. The remain- 
ing three by^es is the coefficient, which 
is the multiplxer for the induction vari- 
able. The second four bytes is the regis- 
ter where the coefficient is reguired. The 
has* 1 is hhp source of initialization of the 
register; it can be either a constant, 
register, or an address. 



which, taken together, indicate the begin- 
ning location of the FORMAT statement. 
These groups are packed to the BASE of the 
roll; that is, this information for the 
first FORMAT appears in the first two words 
on the roll, the information for the second 
FORMAT appears in words 3 and 4, etc. 

The LBL roll group which defines the 
label of the FORMAT statement holds a 
pointer to the displacement recorded for 
the statement on this roll. 

The FORMAT roll is retained in this form 
for the remainder of the compilation. 



ROLL 54 



SCRIPT ROLL 



ROLL_53^ FORMAT_RQLL 

This roll is first used in Parse, where 
the FORMAT statements are placed on it. 
See Appendix D for the description of the 
encoding of the FORMAT statement. 

Each group of the FORMAT roll is in the 
form of a plex (the group size is given in 
word 0). The configuration of a FORMAT 
group in Parse is: 

4 bytes 

r 1 

] size of the group ] 

j. 1 

| pointer to the LBL roll ] 

j. -1 

] number of bytes in the jtOkMAt j 

L 1 

I • i 

I • I 

I • 1 

L J 

Word contains a value which indicates the 
number of words in the group on tne roll. 
The pointer to the LBL roll points to the 
label of the corresponding FORMAT state- 
ment. The next word gives the number of 
bytes of storage occupied by this particu- 
lar FORMAT statement. The ellipses denote 
that the encoded FORMAT follows this con- 
trol information. 

In Allocate, the FORMATS are replaced by 
the following: 

4 bytes 

r t 1 

] | displacement | 

j. j. 4 

J « base table pointer 1 

i j 



This roll is created by Parse as each 
appropriate array reference is encountered. 
The array reference indicated includes sub- 
scripts (one or more) which use the 
instruction variable in a linear fasnion. 
Unify uses the contents of the roll. 

The group size of the SCRIPT roll is lb 
bytes, plus an additional 4 bytes for each 
DO loop that is open at the point of tne 
array reference represented by the entry. 
The group format of the SCRIPT roll in 
Parse and Unify is as described for the 
NONSTD SCRIPT roll. 



ROLL 55: 



LOOP DATA ROLL 



This roll contains the initializing and 
terminating data, and indicates the induc- 
tion variable and the nesting level of the 
particular loop from which this entry was 
created. 

The roll is created in Parse at the time 
that the loop is encountered. The group 
size of the LOOP DATA roll is 20 bytes. 
The group format of the roll in Parse is: 

4 bytes 

r t i 

] TAG | nest level | 

f x -i 

] pointer to induction variable | 
j. ., 

\ pointer to n x (initial value) | 

I j 

where the TAG byte contains a X'80* when an 
inner DO loop contains a possible extended 
range. The X'80' is placed there by Parse 
and tested by Gen. The Gen phase then 
produces object code to save general regis- 
ters 4 through 7 at the beginning of this 
DO loop so that the registers are not 
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altered in the extended range. The next 
three bytes indicate the nest level of the 
loop. The second word is a pointer to the 
SCALAR roll group which describes the 
induction variable. The third word of the 
group points to the initializing value for 
the induction variable, which may be repre- 
sented on the FX CONST roll or the SCALAR 
roll. 

During the operation of the Unify phase, 
the roll is completed with pointers to the 
LOOP CONTROL roll. During Unify, the LOOP 
CONTROL roll is also created; therefore, 
insertion of the pointers is done while the 
loop control data is being established. 



The following illustration shows the 
configuration of the LOOP DATA roll as it 
is used in Unify: 



4 bytes 
nest level 



j. 

] SCALAR pointer (induction variable) 
j. 

] FX CONST pointer or SCALAR pointer 



j. 

] LOOP CONTROL pointer (start init. ) 
j. 

] LOOP CONTROL pointer (end init.) 
i 



The last two words (eight bytes) of the 
group are inserted by Unify. These point- 
ers point to the first and last LOOP 
CONTROL roll groups concerned with this 
loop. 



ROLL 56: PROGRAM SCRIPT ROLL 



This roll is a duplicate of the SCRIPT 
roll. The contents of the SCRIPT roll are 
transferred to the PROGRAM SCRIPT roll in 
Parse as each loop is closed. Each loop is 
represented ny a reserved block on the 
roll. 

The group size of the PROGRAM SCRIPT 
roll is 16 bytes, plus an additional 4 
bytes for each nest level up to and includ- 
ing the one containing the reference repre- 
sented by the entry. The format of the 
PROGRAM SCRIPT roll group in Parse and 
Unify is as follows: 



r t- 

traits | 
x. 



4 bytes 

frequency 



ARRAY REF pointer 
ARRAY pointer 



ARRAY offset pointer 
induction variable coefficient 



induction variable coefficient 
(nest level = 2) 



induction variable coefficient 
(nest level = n) 



See the NONSTD SCRIPT roll for further 
description. 



ROLL 56 



ARRAY PLEX ROLL 



This roll is used only in Gen, where it 
handles subscripts (array references) which 
are not handled by Unify. The group size 
for the ARRAY PLEX roll is twelve bytes. 
Tne format of the group on the roll is: 

4 bytes 

r '■- 1 

j pointer to array | 

j. 4 

] pointer to index | 

j. -i 

| displacement | 

i j 

The pointer in the first word of the group 
points to the ARRAY REF roll when the 
subscript used contains DO dependent linear 
subscripts (which are handled by Unify) and 
non-linear variables. otherwise, the 
pointer refers to the ARRAY roll. 

The second word of the group holds a 
pointer to the index value to be used in 
the subscripted array reference. This 
pointer points to general register 9 on the 
FX AC roll if the index value has been 
loaded into that register; if the index 
value has been stored in a temporary loca- 
tion, the pointer indicates the proper 
location on the TEMP AND CONST roll; if the 
index value is a fixed constant, the 
pointer indicates the proper group on the 
FX CONST roll. When the information in 
this word has been used to construct the 
proper instruction for the array reference, 
the word is cleared to zero. 
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The displacement, in the third word of 
the group, appears only when the first word 
of the group holds a pointer to the ARRAY 
roll. Otherwise, the displacement is on 
the ARRAY REF roll in the group indicated 
by the pointer in the first word, and this 
word contains the value zero. This value 
is the displacement value to be used in the 
instruction generated for the array 
reference. 



111112 3 

125690 1 

I ~ T T T 1 

| op code jR ± |R a I offset | 

j. a J J -J 

| or TEMP AND CONST roll j 

J pointer | 

,. 4 

| or TEMP AND CONST roll | 

j pointer I 

j. \ 

| ARRAY pointer J 

i j 



ROLL 57: ARRAY REF ROLL 



ROLL 58: ADR CONST ROLL 



Pointers to this roll are inserted into 
the Polish notation by Parse. At the time 
that these pointers are established, the 
ARRAY REF roll is empty. The pointer is 
inserted into the Polish notation when an 
array reference includes linear loop- 
controlled subscripts. 



The roll is initially created by Unify 
and completed by Gen. The group size of 
the ARRAY REF roll is 16 bytes. The format 
of the ARRAY REF roll group as it appears 
in Unify is as follows: 



111112 3 

125690 1 

r t T T 1 

I |Ri |R a I offset | 
1 j. x x .| 

| pointer to register (R x ) or to the | 
I tpmp awr» priMCT ^ol 1 ! 

! ., 

| pointer to register (R a ) or to the | 
| TEMP AND CONST roll | 

^ ., 

| pointer to the ARRAY roll | 

l j 



This roll contains relocatable informa- 
tion that is to be used by Exit. 

Unify creates the roll which contains a 
pointer to the TEMP AND CONST roll and an 
area code and displacement. The pointer 
indicates an entry on the TEMP AND CONST 
roll which must be relocated according to 
the area code. The displacement is the 
value to be placed in that temporary 
storage and constant area location. 

The group size of the ADR CONST roll is 
eight bytes. The format of the ADR CONST 
roll group in Unify is: 

4 bytes 

r t 1 

| area code | displacement | 

, j 1 

j TEMP AND CONST pointer | 

l J 

These groups are constructed by Unify to 
provide additional base table values for 
indexing. 



ROLL 59: AT ROLL 



The first word of the group contains the . 

low 20 bits of an instruction which is f This roll is constructed in Parse and 

being formatted by the compiler. R x and R a used in Gen. It is not used in the 

are the two register fields to be filled remaining phases. The group size for this 

with the numbers of the registers to be roll is twelve bytes. The format of the 

used for the array reference. Word 2 of group is: 

the group contains the pointer indicating 4 bytes 

the register to be assigned for R ± . Word 3 r t 

of the group indicates the register R a . j AT label pointer j 

When R x and R a have been assigned, the | -| 

second and third words are set to zero. j debug label pointer j 

,. 1 

| return label pointer | 

Gen completes the entry by adding the L J 

operation code to the instruction that is 

being built. The format of an ARRAY REF All three of the pointers in the group 
roll group in Gen is: point to the LBL roll. The first points to 

the label indicated in the source module AT 
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statement. The second points to the made 
label supplied by the compiler for the code 
it has written to perform the debugging 
operations. The third label pointer indi- 
cates the made label supplied for the point 
in the code to which the debug code 
returns; that is, the code which follows 
the branch to the debugging code. 



ROLL 60: SUBCHK ROLL 



This roll is initialized in Parse and 
used in Allocate. It does not appear in 
later phases. The group size for this roll 
is eight bytes.. The format of the group 
is : 

4 bytes 

r t 

| < variable name 1 

Y T ^ 

, >, o i 

L X J 



Each group holds the name of an array 
listed in the SUBCHK option of a source 
module DEBUG statement. 



ROLL 62: GENERAL ALLOCATION ROLL 



This roll is used only during Allocate, 
and is not used in any other phase of the 
compiler. During the various allocation 
operations performed by this phase, the 
roll holds the information which ultimately 
resides on the remaining ALLOCATION rolls. 
The group size for the GENERAL ALLOCATION 
roll is twelve bytes. The format of the 
group is: 



4 bytes 
variable 

T 

-name >| displacement 

j 

base table pointer 



r — 

l<- 



ROLL 60: NAMELIST MPY DATA ROLL 



where the base table pointer indicates the 
group on the BASE TABLE roll which will be 
used for references to the variable. 

The displacement is the distance in 
bytes from the location indicated in the 
BASE TABLE roll group to the location of 
the variable. 

During the allocation of COMMON, the 
third word of each group holds a relative 
address until all of a COMMON block has 
been allocated, when the relative address 
is replaced by the pointer as indicated 
above. During the allocation of EQUIVA- 
LENCE variables, relative addresses within 
the EQUIVALENCE variables are used and then 
replaced by pointers as for COMMON. 



This roll is set up during the construc- 
tion of the NAMELIST tables in Allocate. 
In Exit, the roll is used to complete the 
information in the NAMELIST tables. The 
roll is not used in the other phases of the 
compiler. The group size for the NAMELIST 
MPY DATA roll is eight bytes. The format 
of the group on this roll is: 

4 bytes 

r 1 

| multiplier constant | 

t ^ 

| address | 

i j 

The multiplier constant refers to an 
array dimension for an array mentioned in a 
NAMELIST list. The address is the location 
in a NAMELIST table at which a pointer to 
the multiplier constant must appear. In 
Exit, the constant is placed in the tem- 
porary storage and constant area of the 
object module, and a TXT card is punched to 
load its address into the location speci- 
fied in the second word of the group. 



ROLL 62: CODE ROLL 



This roll holds the object code 
generated by the compiler, in binary. This 
roll is first used in Gen, where the object 
code for the entire source module is built 
up on the roll. 

The group size for the CODE roll is 
eight bytes. Two types of groups are 
placed on the roll during the operations of 
Gen. The first type of group is added to 
the roll by the instructions IEYBIN, IEYBIM 
and IEYBID. In this type of group, the 
binary instruction is left- justified in the 
eight bytes. When the instruction occupie- 
sonly two bytes, the first word is com- 
pleted with zeros. When the instruction 
occupies two or four bytes, the second word 
of the group holds a pointer to the defin- 
ing group for the operand of the instruc- 
tion. When the instruction is a 6-byte 
instruction, the last two bytes of the 
group contain zero, and no pointer to the 
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operand appears. A unique value is placed 
on the CODE roll by these instructions to 
indicate the beginning of a new control 
section. 

The second type of group entered on the 
CODE roll appears as a result of the 
operation of one of the instructions IEYPOC 
and IEYMOC. These groups do not observe 
the 8-byte group size of the roll, but 
rather begin with a word containing a 
special value in the upper two bytes; this 
value indicates an unusual group. The 
lower two bytes of this word contain the 
number of words in the following informa- 
tion. This word is followed by the binary 
instructions. 

The object module code is written out 
from this roll by the Exit phase of the 
compiler. 



WORK ROLL 



The WORK roll is often used to hold 
intermediate values. The group size for 
this roll is four bytes. The name WO is 
applied to the bottom of the WORK roll (the 
last meaningful word) , Wl refers to the 
next- to-bottom group on the WORK roll, etc. 
In the POP instructions these names are 
used liberally, and must be interpreted 
with care. Loading a value into WO is 
storage into the next available word, 
(WRKADR) + U, unless specifically otherwise 
indicated, while storage from WO to another 
location involves access to the contents of 
the last word on the roll. (WRKADR). 
WRKADR is normally incremented following a 
load operation and decremented following a 
store. 



ROLL 63: AFTER POLISH ROLL 



EXIT ROLL 



This roll is constructed in Parse, 
remains untouched until Gen, and is de- 
stroyed in that phase. 

The AFTER POLISH roll holds the Polish 
notation produced by Parse. The Polish for 
one statement is moved off of the POLISH 
roll and added to this roll when it is 
completed; thus, at the end of Parse, the 
Polish notation for the entire source 
module is on this roll. 

In Gen, the Polish notation is returned 
to the POLISH roll from the AFTER POLISH 
roil for the production of object code. At 
the conclusion of the Gen phase, the roll 
is empty and is no longer required by the 
compiler. The group size for this roll is 
four bytes. 



WORK AND EXIT ROLLS 



Because of the nature and frequency of 
their use, the WORK roll and the EXIT roll 
are assigned permanent storage locations in 
IEYROL, which is distinct from the storage 
area reserved for all other rolls. As a 
result, these rolls may never be reserved 
and are manipulated differently by the POP 
instructions. The group stats and the 
items BASE and TOP are not maintained for 
these rolls. The only control item main- 
tained for these rolls corresponds to the 
item BOTTOM, and is carried in the general 
register WRKADR (register 4) for the WORK 
roll and EXTADR (register 5) for the EXIT 
roll. 



The EXIT roll holds exit addresses for 
subroutines and, thereby, provides for the 
recursion used throughout the compiler. 
The ANSWER BOX is also recorded on the EXIT 
roll. The group size for the EXIT roll is 
twelve bytes. The first byte is the ANSWER 
BOX. The remaining information on the roll 
is recorded when a subroutine jump is 
performed in the compiler code; it is used 
to return to the instruction following the 
jump when the subroutine has completed its 
operation. 

The values placed on the EXIT roll 
differ, depending on the way in which the 
subroutine jump is performed. As a result 
of the interpretation of the IEYv3SB POP 
instruction, the last three bytes of the 
first word contain the location of the 
IEYJSB plus two (the location of the POP 
instruction following the IEYJSB, the 
return point) ; the second word of the group 
holds an address within the IEYJSB subrou- 
tine; the third word contains the location 
of the global label for the routine from 
which the subroutine jump was made plus two 
(the value of LOCAL JUMP BASE in that 
routine) . 

As an example of how a subroutine jump 
is accomplished by means of machine lan- 
guage instructions, the following instruc- 
tions are used: 

L TMP,G0052J 

BAL ADDR,JSB STORE IN EXIT 

to replace the POP instruction 

IEYJSB G0052J 
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In this case, no value is placed in the the base address to be used for local jumps 

last three bytes of the first word; the in the routine from which the subroutine 

second word holds the address of the jump was made), 
instruction following the BAL; the third 

word holds the location of the global label On return from a subroutine, these 

immediately preceding the BAL plus two (the values are used to restore POPADR and LOCAL 

value of POPADR when the jump is taken, JUMP BASE and they are pruned from the EXIT 

which is also the value of LOCAL JUMP BASE, roll. 
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APPENDIX C: POLISH NOTATION FORMATS 



This appendix shows the format of the 
Polish notation which is generated by the 
compiler for each type of statement in the 
FORTRAN IV (G) language. 



GENERAL FORM 



The format of the Polish notation 
depends on the statement type, but always 
terminates with the control driver which 
indicates the type of statement: 

4 bytes 

r 1\ 

j. < 

| . |f Polish for 

| . | > statement 

I • I 

V ^ 

Y -I 

| control driver | 

|. 1 

| statement number | 

L J 

The statement number is an integer whose 
value is increased by one for each state- 
ment processed.. This value is used only 
within the compiler. 



LABELED STATEMENTS 



For labeled statements, a pointer to the 
label is inserted between the control driv- 
er and the statement number: 

4 bytes 

r v 

|. J 

I • ll 

| . j > Polish for 

j . 1 1 statement 

j ^ 

, 1 

| control driver | 

h ., 

| label j 

h ^ 

| pointer to statement label | 
h ., 

(statement number | 

l j 

The label information is not included in 
the following descriptions of the Polish 
notation for individual statement types. 



ARRAY REFERENCES 



The Polish notation for an array 
reference whose subscripts are all linear 
functions of DO variables consists simply 
of a pointer to the appropriate group on 
the ARRAY REF roll. The Polish notation 
generated for all other references to an 
array element is: 



H bytes 



array driver 



pointer to array 



multiplier 



argument driver 



multiplier 



argument driver 



multiplier 



argument driver 



Polish for 
subscript 1 



Polish for 
subscript 2 



Polish for 
subscript 7 



dummy array pointer 



The pointer to the array may indicate 
either (1) the ARRAY roll, when none of the 
subscripts used in the array reference are 
linear functions of DO variables, or (2) 
the ARRAY REF roll, when some, but not 
all, of the subscripts are linear functions 
of DO variables. The subscripts for which 
Polish notation appears are those which are 
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not linear functions of DO variables. Only 
the required number of subscripts appear. 

The multiplier following each subscript 
is the multiplier for the corresponding 
array dimension. This value is an integer 
unless the array is a dummy including dummy 
dimensions which affect this array dimen- 
sion; in this case, the multiplier is 
represented by a pointer to the TEMP AND 
CONST roll. 



ENTRY STATEMENT 



The Polish notation generated for the 
ENTRY statement is : 

4 bytes 

r 1 

| pointer to ENTRY name | 

h ., 

| ENTRY driver | 

^ ., 

| statement number | 

i j 

The pointer points to the ENTRY NAMES 
roll. 



ASSIGN STATEMENT 

The Polish notation generated for the 
ASSIGN statement is: 

*4 bytes 

r 1 

| pointer to label | 

1 ^ 

| pointer to variable | 

h ., 

| ASSIGN driver j 

I ., 

(statement number | 

i j 



ASSIGNED GO TO STATEMENT 

The Polish notation generated for this 
statement is: 

4 bytes 

i T 

| pointer to variable | 

| ., 

| assigned GO TO driver | 

h ., 

| statement number | 

l j 



LOGICAL IF STATEMENT 

The Polish notation generated for this 
statement is: 

4 bytes 

j . |f Polish for 

j . j logical 

j . |l expression 

£=====? 

j. -n 

j . |f Polish for 

| . |\ statement 

I • li "S" 

| logical IF driver | 

|. ^ 

| statement number | 

l J 



RETURN STATEMENT 



The following Polish notation is pro- 
duced for the RETURN statement: 

4 bytes 

r 1 

| pointer to I | 

,. 1 

(RETURN driver | 

h 1 

| statement number | 

i j 

The pointer to I does not appear if the 
statement is of the form RETURN. 



ARITHMETIC AND LOGICAL ASSIGNMENT STATEMENT 



The Polish notation produced for this 
statement is: 

1 bytes 

r 1 

| pointer to variable to be set | 

h .j 

^ .n 

| . |( Polish for 

j . j right side 

h H 

, .,' 

(assignment driver | 

^ ^ 

| statement number ( 

i j 
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The Polish notation for the right side 
of the assignment statement is in the 
proper form for an expression, and includes 
array references where they appear in the 
source statement. The variable to be set 
may also be an array element; in this case, 
the pointer to the variable to be set is 
replaced by the Polish notation for an 
array reference. 



UNCONDITIONAL GO TO STATEMENT 



The Polish notation produced for this 
statement is: 



4 bytes 

i 1 

| pointer to label | 

, ., 

| GO TO driver | 

h 1 

| statement number | 

l J 



ARITHMETIC IF STATEMENT 



The following Polish notation is pro- 
duced for this statement: 



4 bytes 



j. 

I- 

j pointer to xl 
j. 

j pointer to x2 

I- 

| pointer to x3 



■ 

jf Polish for 
expression 

I hrani 

\ point 



ich 
points 



| pointer to label next stmt. 
j. 

| IF driver 

y 

| statement number 

L 



The label of the next statement is 
inserted following the IF driver because 
the next statement may be one of the branch 
points referenced; if it is, code will be 
generated to fall through to that statement 
in the appropriate case(s). 



COMPUTED GO TO STATEMENT 



DO STATEMENT 



The following Polish notation is pro- 
duced for this statement: 



The following is the Polish notation 
produced for the statement DO x i = ml, m2, 
m3: 







4 bytes 


r 

| pointer 
1 


to 


xl 


1 — 

| pointer 

I 


to 


x2 



H- 



I pointer to xn 

j number of branch points 

,. 4 

| pointer to variable 

, ., 

| computed GO TO driver 

j. i 

| statement number 

i 



branch 
points 



4 bytes 



| pointer to M 2 (test value) 



| pointer to M 3 (increment) 
j. 

| pointer to LOOP DATA roll 
,. 



| pointer to LBL roll 
j. 

| DO driver 

h 

| statement number 



The pointer to m3 appears, even if the 
increment value is implied. 
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CONTINUE STATEMENT 



DATA STATEMENT AND D ATA IN EXPLICIT 
SPECIFICATION STATEMENTS 



The Polish notation produced for this 
statement is : 

4 bytes 

i 1 

| CONTINUE driver | 

} ., 

| statement number | 

i j 



For each statement (DATA or Explicit 
specification) in which data values for 
variables are specified, a Polish record is 
produced. This record ends with a DATA 
driver and a statement number. For each 
variable initialized by the statement, the 
following appears: 



PAUSE AND STOP STATEMENTS 

The Polish notation produced for these 
statements is : 

4 bytes 

r 1 

| pointer to constant | 

, ., 

| PAUSE or STOP driver j 

y ., 

| statement number | 

i j 



4 bytes 

r 1 

| pointer to variable | 

j. ^ 

| offset | 

L J 



The offset is the element number at which 
initialization begins; if it does not 
apply, this word contains the value zero. 



For both the PAUSE statement and the 
STOP statement, the constant appears on the 
LITERAL CONST roll, regardless of its 
nature in the source statement. If no 
constant appears in the statement, the 
pointer to the constant points to the 
literal constant zero. 



This information is followed by the pair 
of groups 



END STATEMENT 



The Polish notation generated for the 
END statement is: 



4 bytes 

r t 

j repetition count | 

i ^ 

| pointer to constant | 

L J 



U bytes 

i 1 

| END driver | 

i. ^ 

| statement number | 

i j 



BLOCK DATA STATEMENT 



The Polish notation generated for the 
BLOCK DATA statement is: 



or, when the constant is literal, the three 
groups 



4 bytes 

r 1 

(repetition count | 

,. ^ 

| pointer to constant | 

j. j 

| number of elements | 

i j 



U bytes 

r 1 

j BLOCK DATA driver j 

, ^ 

| statement number | 

». j 



where the last group indicates the number 
of elements of an array to be filled by the 
literal constant. For array initializa- 
tion, one or more of the "constant" groups 
may appear. 
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I/O LIST 



4 bytes 



(pointer to a (data set) 



ine runsu nutation iui an i./\j bisi. 

contains pointers to the variables in the 
list, Polish notation for array references 
where they appear, and pointers and drivers 
to indicate implied DO loops. 

The I/O list 

((C(I),I=1,10), A,B) 

for example, results in the following 
Polish notation: 

M bytes 



pointer to M a (test value) 
r~ 



pointer to LOOP DATA roll 



I 

pointer to C 



pointer to M 3 (increment) 



implied DO driver 



1 (number of subscripts) 



pointer to I (subscript) 



argument driver 



array driver 



h 
h 

^ 

pointer to A 

I 

pointer to B 



IOL DO Close driver 



The area between, and including, the 
implied DO driver and the array driver is 
an array reference, as it would appear 
wherever C(I) was referred to in source 
module statements. 



INPUT STATEMENTS 



The following paragraphs discuss the 
Polish notation produced for all forms of 
the READ statement except direct access. 



FORMATTED READ 



For the form READ (a,b) list, the for- 
matted READ, the Polish notation generated 



j FORMAT driver 

> 

j pointer to ^RMAT 

y. 

|£ND=^ driver 

|. 

| pointer to END label 
y 

|ERR= driver 

j. 

(pointer to ERR label 

i. 

| IOL driver 

|. 

j. 



f Polish for 
/I/O list 



j. 

j. 

| code word 

j. _ 

|IBCOM entry, formatted READ 
j. 

| pointer to IBCOM 

^ 

| READ/WRITE flag, zero= WRITE, 

j nonzero- READ 

j. 

jREAD WRITE driver 

j. 

J statement number 



The pointer to the FORMAT points either 
to the label of the FORMAT statement or to 
the array in which the FORMAT is stored. 
The END= and ERR= drivers and the pointers 
following them appear only if the END and 
ERR options are used in the statement; 
either one or both may appear, and in any 
order with respect to each other. If no 
I/O list appears in the statement, the 
Polish for the I/O list is omitted, but the 
IOL driver appears nonetheless. 

The code word contains zero in its 
high-order three bytes, and, in its low- 
order byte, a unique code specifying the 
operation and unit for the input/output 
statement. This code word distinguishes 
among the various READ statements and is 
inserted in the code produced for them. 

Input/output operations are performed by 
the RUNTIME routines. IBCOM is a transfer 
routine in RUNTIME through which all input/ 
output except NAMELIST is performed. The 
IBCOM entry for formatted READ indicates an 
entry point to this routine. (See Appendix 
D for further discussion of IBCOM. ) The 
pointer to IBCOM points to the routine on 
the GLOBAL SPROG roll. 
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NAMELIST READ 



For the form READ <a,x), the NAMELIST 
READ, the following changes are made to the 
Polish notation given above: 

1. The FORMAT driver is replaced by a 
NAMELIST driver. 

2. The pointer to the FORMAT is replaced 
by a pointer to the NAMELIST. 

3. The code word value is changed. 

4. The IBCOM entry is replaced by the 
value zero, since NAMELIST input/ 
output is not handled through IBCOM. 

5. The pointer to IBCOM is replaced by a 
pointer to the NAMELIST READ routine. 

6. No I/O list may appear. 
UNFORMATTED READ 



For the form READ (a) list, the unfor- 
matted READ, the following changes are made 
to the Polish notation given above: 

1. The FORMAT driver is removed. 

2. The pointer to the FORMAT is removed. 

3. The IBCOM entry, formatted READ, is 
replaced by the IBCOM entry, unfor- 
matted READ. 

READ STANDARD UNIT 

For the form READ b, list, the standard 
unit READ statement, the following changes 
are made to the Polish notation given 
above : 

1. No END= or ERR= drivers may appear, 
nor may the corresponding pointers to 
labels. 

2. The code word value is changed. 
OUTPUT STATEMENTS 



The following paragraphs discuss the 
Polish notation produced for all forms of 
the WRITE statement except direct access, 
and for the PRINT and PUNCH statements. 



FORMATTED WRITE 



For the form WRITE <a,b> list, the 
formatted WRITE, the Polish notation 
generated is: 



U oytes 



pointer to 


a <data set) 




FORMAT driver 


pointer to 


FOHMAT 




END= driver 


pointer to 


END label 




ERR= driver 


pointer to 


ERR label 




IOL driver 




• 




code word 


IBCOM entry, formatted 


WRITE 


pointer to 


IBCOM 




READ/WRITE 
nonzero= 


flag, zero= 
READ 


WRITE, 


READ WRITE 


driver 




statement number 



Polish for 
I/O list 



The pointer to the FORMAT points either 
to the label of the FORMAT statement or to 
the array in which the FORMAT is stored. 
The END= and the ERR= drivers and the 
pointers following them appear only if the 
END and ERR options are used in the state- 
ment; either one or both may appear, and in 
any order relative to each other. If no 
I/O list appears in the statement, the 
Polish for the I/O list is omitted, but the 
IOL driver appears nonetheless. 



The code word contains zero in its 
high-order three bytes, and, in its low- 
order byte, a unique code specifying the 
operation and unit for the input/output 
statement. This code word distinguishes 
among the various output statements and is 
inserted in the code produced for them. 



Input/output operations are performed by 
the RUNTIME routines. IBCOM is the initial 
entry of a transfer vector in IHCFCOMH 
through which all input/output except NAME- 
LIST is performed. (IHCFCOMH is further 
discussed in Appendix F. ) The pointer to 
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IBCOM points to the routine on the GLOBAL 
SPROG roll. 



1. No END= or ERR= drivers may appear, 
nor may the corresponding pointers to 
labels. 



NAMELIST WRITE 



2. The code word value is changed. 



For the form WRITE (a, x) , the NAMELIST 
WRITE- the following changes are made to 
the Polish notation given above: 

1. The FORMAT driver is replaced by a 
NAMELIST driver. 

2. The pointer to the FORMAT is replaced 
by a pointer to the NAMELIST. 

3. The code word value is changed. 

4. The IBCOM entry is replaced by the 
value zero, since NAMELIST input/ 
output is not handled through IBCOM. 

5. The pointer to IBCOM is replaced by a 
pointer to the NAMELIST WRITE routine. 

6. No I/O list may appear. 



UNFORMATTED WRITE 

For the form WRITE (a) list, the unfor- 
matted WRITE, the following changes are 
made to the Polish notation given above: 

1. The FORMAT driver is removed. 

2. The pointer to the FORMAT is removed. 

3. The IBCOM entry, formatted WRITE, is 
replaced by the IBCCM entry, unfor- 
matted WRITE. 

PRINT 



The Polish notation generated for the 
form PRINT b, list is identical to that 
given for the formatted WRITE statement, 
with the following changes: 

1. No END= or ERR= drivers may appear, 
nor may the corresponding pointers to 
labels. 

2. The code word value is changed. 



PUNCH 



The Polish notation for the statement 
PUNCH b, list is as given for the formatted 
WRITE with the following changes: 



DIRECT ACCESS STATEMENTS 



The following paragraphs discuss the 
Polish notation produced for the direct 
acces 



READ, DIRECT ACCESS 



For the forms READ (a*b,b) list and READ 
(a'r) list, the following Polish notation 
is generated: 

U bytes 



pointer to a (data set) 



f- 



Idirect 10 driver 





expression 


driver 


pointer 


to 


b 




ERR= driver 


pointer 


to 


ERR 


label 


IOL driver 





code word 
j 

| IBCOM entry, READ 



pointer to IBCOM 



r.EAD/WRITE flag, zero= WRITE, 
nonzero= READ 



READ WRITE driver 



| statement number 

l 



Polish for 

r 



Polish for 
/I/O list 
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The END= and ERR= drivers and the point- 
ers following them appear only if the END 
and ERR options are used in the source 
statement; either one or both may appear, 
and in any order with respect to each 
other. If b does not appear in the source 
statement (the second form), the corres- 
ponding pointer does not appear in the 
Polish notation. If the I/O list does not 
appear in the source statement, the Polish 
notation for the I/O list is omitted from 
the Polish, but the IOL driver appears 
nonetheless. 

The code word contains zero in its 
high-order three bytes, and, in its low- 
order byte, a unique code specifying the 
operation and unit for the input/output 
statement. This code word distinguishes 
the direct access statements from other 
input/output statements and is inserted in 
the code produced for them. 



WRITE, DIRECT ACCESS 



The Polish notation produced for the 
forms WRITE (a'r,b) list and WRITE (a'r) 
list is identical to that produced for the 
corresponding forms of the READ, direct 
access statement with the following 
exceptions : 

1. The IBCOM entry, READ is replaced by 
the appropriate IBCOM entry, WRITE. 

2. The value of the code word is changed. 



U bytes 



pointer to al 



pointer 


to 


ml | 


pointer 


to 


11 | 


E, L, or U | 


pointer 


to 


vl | 


pointer 


to 


a2 | 


• I 

• I 

• I 


pointer 


to 


v2 | 


■ 1 


pointer 


to 


an j 


• j 

* 1 


pointer 


to 


vn j 


DEFINE FILE driver | 



file 1 data 



file 2 data 



file n data 



statement number 



where the fourth word of each set of file 
data holds the BCD character E, L, or U in 
the high-order byte and zeros in the 
remaining bytes. 



FIND 



The Polish notation produced for this 
statement is identical to that for an 
unformatted direct access READ statement 
given above, with the exception that the 
code word is changed to indicate the FIND 
statement. 



DEFINE FILE 



The form of this statement is: 

DEFINE FILE al (mi, 11, f 1, vl) , a2 
(m2,12,f2,v2), . . . , an (inn, In, f n, vn) 

The Polish notation produced for it is 



END_FILE_STATEMENT 

The Polish notation produced for END 
FILE is: 

<* bytes 

i 1 

| pointer to a (data set) \ 

t 4 

j IBCOM entry for END FILE j 

, ^ 

| pointer to IBCOM j 

, 4 

JBSREF driver j 

> 1 

| statement number | 

i j 
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REWIND STATEMENT 



rne fOiisn notation proaucea ior trie 
REWIND statement is identical to that for 
the END FILE statement with the exception 
that the IBCOM entry for END FILE is 
replaced by the IBCOM entry for REWIND. 

n a nvco Ar'tr cry* rp'Cxjn7vrrn 



4 bytes 



The Polish notation produced for the 
BACKSPACE statement is identical to that 
for the END FILE statement, except that the 

Tnrriu nv .x- M .. £-v— T**.Tr-» nrr n * 

IBCOM entry for BACKSPACE. 



STATEMENT FUNCTION 



The Polish notation generated for a 
statement function is: 



4 bytes 



pointer to function name 



statement function driver 



statement number 



Polish for 
right side 



subprogram 


driver 




pointer to 


function 


name 


number of arguments 


expression 


driver 







expression driver 



expression driver 



I 



Polish for 
argument 1 



Polish for 
argument 2 



Polish for 
argument n 



FUNCTION STATEMENT 



expression driver 
pointer to function name 



This Polish notation is part of the 
Polish notation for the expression in which 
the function reference occurs. 



The Polish notation produced for the 
FUNCTION statement is: 



4 bytes 



j pointer to ENTRY name 
j. 

| FUNCTION driver 

h 

(statement number 

l 



where the pointer points to the ENTRY NAMES 
roll. 

FJJN^TION_X§TATEMENT_OR_SJJB^ROGRAM)_ 
REFERENCE 



The Polish notation generated for a 
reference to a function is : 



SUBROUTINE STATEMENT 



The Polish notation generated for the 
SUBROUTINE statement is: 

4 bytes 

r i 

| pointer to ENTPY name | 

j. 1 

| SUBROUTINE driver j 

|. -i 

| statement number | 

l j 

where the pointer points to the ENTRY NAMES 
roll. 
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CALL STATEMENT 



The Polish notation for the CALL state- 
ment is: 



4 bytes 



subprogram driver 
| 

pointer to subprogram name 
| 

number of arguments 
j. 

expression driver 
| 



, 

expression driver 
j. 



! 

expression driver 
t 



h- 



t 

expression driver 
! 

pointer to subprogram name 



pointer to xl 
pointer to x2 



y 

pointer to xn 
| 

number of label arguments 
h 

computed GO TO driver 
l 

CALL driver 



statement number 



Polish for 
argument 1 



Polish for 
argument 2 



Polish for 
argument n 



label 
arguments 



Label arguments are not counted in the 
•number of arguments" which appears as the 
third word of the Polish notation, and no 



representation of them appears in the 
Polish notation for the arguments. All 
label arguments are grouped together at the 
bottom of the Polish as indicated. If no 
label arguments exist, the section from the 
"pointer to xl" to and including the "com- 
puted GO TO driver" does not appear. 



DEBUG FACILITY STATEMENTS 



The following paragraphs describe the 
Polish notation produced for the statements 
of the debug facility. 



AT 



The Polish notation generated for the AT 
statement is: 

4 bytes 

r 1 

| pointer to AT group | 

,. .| 

| AT driver | 

^ 4 

| statement number | 

L J 

The pointer points to the AT roll group 
which contains the information relating to 
the AT statement represented by the Polish 
notation. 



TRACE ON 



The Polish notation generated for the 
TRACE ON statement is: 

4 bytes 

r 1 

| TRACE ON driver | 

j. ., 

| statement number | 

i j 



TRACE OFF 

The Polish notation generated for the 
TRACE OFF statement is: 

4 bytes 

r 1 

| TRACE OFF driver | 

,. ., 

| statement number | 

L J 
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DISPLAY 

The Polish notation generated for the where the pointer to NAMELIST WRITE points 

DISPLAY statement is: to this routine on th GLOBAL SPROG ^roll; 

the value zero is placed on the roll for 

4 bytes conformity with other NAMELIST input/output 

r -i statements; the NAMEL" ST pointer points to 

pointer to NAMELIST WRITE | a group constructed for the DISPLAY state- 

.j ment on the NAMELIST NAMES roll. 

! 

,. .| 

NAMELIST pointer | 

I 4 

DISPLAY driver | 

,. ) 

statement number ! 



Appendix C: Polish Notation Formats 173 



APPENDIX D: OBJECT CODE PRODUCED BY THE COMPILER 



This appendix describes the code pro- 
duced by the FORTRAN IV (G) compiler for 
various types of source module statements. 



DO STATEMENT 



The use of a DO loop in a FORTRAN 
program can be described by the following 
example: 



BRANCHES 



DO 5 I - ml,m2, m3 



All branch instructions in the object 
module consist of a load from the branch 
table, followed by a BCR instruction, eith- 
er conditional or unconditional, which uses 
the branch table value as its target. 

The production of this code depends on 
the operation of Allocate, which replaces 
all jump target labels on the LBL roll with 
pointers to entries in the object module 
branch table. Using this information, Gen 
can write the load and branch instructions 
even though the address of the target may 
not yet be known. 

When Gen encounters a labeled statement 
which is a jump target, it sets the appro- 
priate entry in the branch table to the 
address of the first instruction it pro- 
duces for that statement. 



5 CONTINUE 



When the DO statement is processed dur- 
ing phase 4, the following takes place: 



1. The code 



L R0,ml 
A ST R0,I 



is generated, where the label A is 
constructed by Gen. 



COMPUTED GO TO STATEMENT 



2. The address of the instruction labeled 
A is placed in the branch table. 



The following code is generated for the 
Computed Go To statement: 



L 


15, variable 


SLL 


15,2 


BALR 


14,0 


LTR 


15,15 


BNH 


4n*22<0,14> 


LA 


l,4n<0,0) 


CR 


15,1 


BH 


4n+22(0,14) 


L 


1,18(15,14) 


BR 


1 



3. An entry is made on the DO LOOPS OPEN 
roll which contains pointers to m2, 
m3, the label A, I, and the label 5. 



On receiving the Polish notation for the 
CONTINUE statement in the example, phase 4 
produces the following code: 



n address constants 



L 


R0,I 


L 


Rl, branch table 


L 


R2,m3 


L 


R3,m2 


BXLE 


R0,R2,0(R1) 



where variable is the Computed Go To vari- 
able, n is the number of branch points, and 
4n is the length of the list of n address 
constants. 



where the load from the branch table sets 
Rl to the address of the created label A. 
When this code has been completed, phase 4 
removes the bottom entry from the DO LOOPS 
OPEN roll. 
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STATEMENT FUNCTIONS 



The following code is generated at the 
beginning of each statement function: 



STM 


2,3,18(15) 


STM 


6,12,26(15) 


LR 


7,14 


LR 


9.1 


LR 


6,15 


B 


54(0,15) 



nine-word buffer 



B X(0,15> 

DC ALK length of Ident) 

DC CLn( Ident) 

STM 1U,12,12<13) 

LM 2,3,32(15) 

L 15,28(0,15) 

B 20(0,15) 

DC (ADDRESS MAIN ENTRY) 

DC (ADDRESS PROLOGUE) 

DC (ADDRESS EPILOGUE) 



The save code for the ENTRYs to the 
subprogram is followed by a PROLOGUE, which 
transfers arguments to the subprogram, and 
an EPILOGUE, which returns arguments to the 
calling routine for the main entry to the 
subprogram and for each ENTRY to the 
subprogram. 



Die buffer is followed by the code for 
the statement function itself, including 
the code to load the return value. The 
following code closes the statement 
function: 



LR 


14,7 


LM 


2,3,18(6) 


LM 


6,12, 26(6) 


BR 


14 



The following code is produced 
RETURN statement: 



for the 



SR 

L 

ER 



15,15 
14,0(0, 13) 
14 



which branches to the appropriate EPILOGUE. 



The following code is produced for the 
RETURN I statement: 



SUBROUTINE AND FUNCTION SUBPROGRAMS 



L 

SLL 

L 

BR 



15,1 
15,2 

14,0(0, 13) 
14 



The following code is generated to save 
required information at the main entry to 
each SUBROUTINE and FUNCTION subprogram: 



B X(0,15) 

DC ALK length of Ident) 

DC CLn( Ident) 

STM 14,12,12(13) 

LM 2,3,40(15) 

LR 4,13 

L 13,36(0,15) 

ST 13,8(0,4) 

STM 3,4,0(13) 

BR 2 

DC (ADDRESS SAVE AREA) 

DC (ADDRESS PROLOGUE) 

DC (ADDRESS EPILOGUE) 



This code is followed by the following 
code for saving required information for 
each of the ENTRYs to the subprogram (the 
sequence of code appears once for each 
ENTRY, in the order of the ENTRYs) : 



which also branches to the appropriate 
EPILOGUE. 

The PROLOGUE code generated for each 
entry point to the subprogram moves argu- 
ments as required and branches to the 
entry. The following code is generated to 
move each call by name argument: 



L 
ST 



2,n(0,l) 

2, global dmy 



where n is the argument number (the argu- 
ments for each entry point are numbered 
from one) multiplied by four. 

The following code is generated to move 
each call by value argument: 

L 2,n(0,l) 

MVC global dmy(x),0(2) 

where n is the argument number multiplied 
by four, and x is the size of the dummy. 

Code to calculate dummy dimensions fol- 
lows the code to move arguments. 
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The following code is generated at the The EPILOGUE code generated for each 

close of all PROLOGUES: entry point to a subprogram moves arguments 

back to the calling routine and returns to 

BALR 2 # it, as dictated by the RETURN or RETURN I 

L 3,6(0,2) statement. 
BR 3 

DC (ADDRESS OF CODE ENTRY POINT) 
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Form Y28-6638-1 

Page Revised 11/15/68 by TNL Y28-6826 

The first instructions in each EPILOGUE 
are: 



FORMATTED READ AND WRITE STATEMENTS 



1.4(0.13) 

ii2«i(b,i> 



The following code is generated to 
return each call by value argument: 



MVC 



0(x, 2) , global dmy 



where n is the argument number multiplied 
by four and x is the size of the dummy. 



For FUNCTION subprograms, the following 
instruction is generated: 



Lx 



0, entry name 



where x is the instruction mode. If the 
FUNCTION is complex, two load instructions 
are required. 

The following code is generated for the 
closing of each EPILOGUE: 



L 


13,4(0,13) 


L 


14, 12(0,13) 


LM 


2,12, 2M13) 


MVI 


12(13) , 255 


PR 


14 



The code produced for these statements 



CNOP 0,4 

L lS^VdBCOM*) 

BAL 14,N(15) 

DC XLO. 4* PI' .XLO.U'UI 1 , AL3 (UNIT) 

DC AL1(FI),AL 3 (FORMAT) 

DC AL4(EOFADD) . "optional 1 

DC AL4(ERRADD> ' "optional' 



where: 

PI = if neither EOF nor ERR is 

specified 
= 1 if EOF onl" is specified 
= 2 if ERR only is specified 
= 3 if both EOF and ERR are 

specified 

UI = if unit is an integer constant 

= 1 if unit is a variable name 

= 4 if unit is the standard system 
unit 

FI = X'00' if FORMAT is a statement 
label 
= X'01' if FORMAT is an array name 

N = for READ 
= 4 for WRITE 

UI = 4 is used for debug and for READ b, 
list, PRINT b, list and PUNCH b, list. 



INPUT/OUTPUT OPERATIONS 



The following paragraphs describe the 
code produced for the FORTRAN input/output 
statements. The generated instructions set 
up necessary parameters and branch into the 
IBCOM# transfer table. This table has the 
following format: 

IBCOM# Main entry, formatted READ 

+4 Main entry, formatted WRITE 

+8 Second list item, formatted 

+12 Second list array, formatted 

+16 Final entry, end of I/O list 

+20 Main entry, unformatted READ 

+24 Main entry, unformatted WRITE 

+28 Second list item, unformatted 

+32 Second list array, unformatted 

+36 Final entry, end of I/O list 

+40 Backspace tape 

+44 Rewind tape 

+48 Write tapemark 

+52 STOP 

+56 PAUSE 

+b0 IBERR execution error monitor 

+64 IBFINT interruption processor 

+68 IBEXIT job termination 



SECOND LIST ITEM FORMATTED 



The code produced is: 



L 


15,=V(IBCOM#> 


BAL 


14,8(15) 


DC 


XLl'L' ,LX0. yT'.XLO. 4 , X' 




XL0.4*B' f XLl.^D 1 


where: 





L = the size in bytes of the item 

T = 2 for a logical 1-byte item 

= 3 for a logical fullword item 

= 4 for a halfword integer item 

= 5 for a fullword integer item 

= 6 for a double-precision real item 

= 7 for a single-precision real item 
double-precision complex 



8 for a 
item 

9 for 
item 
A for a 
compiler-generated) 



a single-precision complex 
literal item (not currently 
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X, B, and D are, respectively, the 
index, base, and displacement which 
specify the item address. 



SECOND LIST ARRAY, FORMATTED 



The code produced is: 

L 15,=V(IBC0M#) 

BAL 14,12(15) 

DC LX1» SPAN 1 ,AL3( ADDRESS) 

DC XL1*L' ,XL0. 4* T , ,XL2.U* ELEMENTS 1 

where: 

SPAN (not used) 



SECOND LIST ITEM, UNFORMATTED 



The code produced is: 

L 15,=V(IBCOM#) 
BAL 14,28(15) 

DC XLl'L 1 , XL0.4»0' , XLO.U'X 1 , 
XLO.U'B'.XLl.U'D' 



where : 



L = the size in bytes of the item 

X, B and D are, respectively, the 
index, base, and displacement which 
specify the address of the item. 



ADDRESS = the beginning location of the 
array 

L = the size in bytes of the array 
element 

T = the values given for items 

ELEMENTS = the number of elements in the 
array 



FINAL LIST ENTRY, FORMATTED 



The code produced is: 

L 15, =V(IBCOM#) 
BAL 14,16(15) 



SECOND LIST ARRAY, UNFORMATTED 



The code produced is: 

L 15,=V(IBCOM#) 

BAL 14,32(L) 

DC XL1 • SPAN 1 , AL3 ( ADDRESS ) 

DC XL1*L',AL 3 (ELEMENTS) 

where SPAN, ADDRESS, L, and ELEMENTS have 
the meanings described in second list 
array, formatted. 



FINAL LIST ENTRY, UNFORMATTED 



The code produced is: 

L 15,=V(IBCOM#> 
BAL 14,36(15) 



UNFORMATTED READ AND WRITE STATEMENTS 



The code produced for these statements 



a,s: 

CNOP 

L 

BAL 

DC 

DC 

DC 

where : 



0,4 

15,=V(IBCOM#> 

14,N(15) 

XLO^'PI'jXLO. 4'UI,AL3(UNIT) 

ALU(EOFADD) "optional" 

AL4 ( ERR ADD ) " opt i ona 1 " 



PI, UI, UNIT, EOFADD and ERRADD have the 
same values as those given in the for- 
matted READ/ WRITE definition. 

N = 20 for READ 
= 24 for WRITE 



BACKSPACE, REWIND, AND WRITE TAPEMARK 



The code produced is: 

CNOP 0,4 

L 15,=V(IBCOM#) 

BAL 14,N(15) 

DC XLl'FLAG' , AL3(UNIT) 

where : 

FLAG = if unit is an integer 

= any other bit pattern if unit is 
a variable. 

N = 40 for BACKSPACE 
= 44 for REWIND 
= 48 for write tapemark 
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STOP AND PAUSE STATEMENTS 



i~r\A£i mritAttr^aA +r\Tr fhaea e+-a+- Amort*- e 



is: 



L 


15,=V(IBC0M#) 


BAL 


14,N(15) 


DC 


ALK LENGTH) 


DC 


C'TEXT 1 



where : 

LENGTH is the number of bytes in the 
'TEXT* message 

TEXT is an alphameric number or message 
(TEXT = •40404040F0 1 if the STOP or 
PAUSE message is blank) . 

N = 52 for STOP 
=56 for PAUSE 

NAMELIST READ AND WRITE 



The following parameter list is also 
generated: 



DC 
DC 
DC 



DC 
DC 
DC 



X'aj^' - AL3 (mi) 
C*fi\AL3(ri) 
X^OO 1 , AL3(Vj.) 



X'a n ' ,AL3(m n ) 
X» 80* ,AL3(v n ) 



une tmra ui. in tne group is cnangea to 

DC X'Ol^ALSCvi) 

if the associated variable is a halfword 
variable. In the last group, it becomes 
X* 81* , AL3(v n ) in this case. 



The code produced is:* 



FIND STATEMENT 



CNOP 


o.u 


L 


15,=V(FWRNL#) 


BAL 


14,0(15) 


DC 


XL0.U , PI , ,XL0.a , UI , ,AL3(UNIT) 


DC 


AL4( NAMELIST) 


DC 


ALU(EOFADD) 


DC 


ALU(ERRADD) 


where : 





The code produced is: 

CNOP 0,4 

L 15,=V(IBCOM#) 

BAL 14,20(15) 

DC XLO.a'PI'jXLO.U'UI', AL3(UNIT) 

DC XLl'VI' ,AL3(r) 



PI, UI, and UNIT are as described for 
formatted READ and WRITE 

* The "L 15.=V(FWRNL#) n shown is for 
write; the code produced for read is 
"L 15,+V(FRDNL#) ." 



DEFINE FILE STATEMENT 



The form of the parameters specified in 
the statement is: 

a i l™±ifi$i : x$v±) i • • • •an(m n #fn# Tnt Vn * 

The following code is generated in the 
object module prologue: 



pi = c 

UI = if the unit is a constant 

= 1 if the unit is a variable name 

VI = 00 if the record number is a 
constant 
= 01 if the record number is a vari- 
able name 

Note that 20 is the IBCOM entry point 
for an unformatted READ. 



DIRECT ACCESS READ AND WRITE STATEMENTS 



LA 


R if LIST 


L 


L,=V(DIOCS#) 


BALR 


R a , L 


where : 




Rx = 


1 


L = 


15 


R a = 


14 



is: 



The code produced for these statements 



CNOP 0. 4 

L 15, =V (IBCOM #) 

BAL 14,N(15) 

DC XLO^'PI'.XLO. 4'UI'AL3(UNIT) 

DC AL1(FI),AL 3 (FORMAT) 

DC ALKVI),AL3(r) 

DC AL4(ERRADD) "may only appear for 
READ" 
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where : 



Internal Parentheses 



PI = 8 if ERR is not specified 

= A if ERR is specified, which is 
only possible for READ 

UI = if the unit is an integer 
constant 
= 1 if the unit is a variable name 

FI = 00 if the FORMAT is a statement 
label 
= 01 if the FORMAT is an array name 

VI = 00 if r (the record number) is a 
constant 
= 01 if r is a variable name 

The entry points which may appear (N) 
are 0, 4, 20, or 24. If 20 or 24 appears 
(indicating an unformatted operation), the 
second DC does not appear. 



FORMAT STATEMENTS 



Parentheses used to enclose groups of 
FORMAT specifications within the FORMAT 
statement are represented by the codes 04 
and 1C for the left and right parenthesis, 
respectively. The code for the left paren- 
thesis is always followed by the 1-byte 
value of the repetition count which pre- 
ceded the parenthesis in the source module 
statement. A value of one is inserted if 
no repetition count appeared. 



Repetition of Individual FORMAT 
Specifications 



Whenever the source module FORMAT state- 
ment contains a field specification of the 
form alw, aFw. d, aEw. d, aDw.d, or aAw, 
where the repetition count "a" is present, 
the hexadecimal code 06 is produced to 
indicate the field repetition. This code 
is followed by the 1-byte value of "a". 



FORMAT statements are stored after 
eral constants in the object module. 



lit- 



I.F.E, and D FORMAT Codes 



The FORMAT specifications are recoded 
from their source module form so that each 
unit of information in the FORMAT statement 
occupies one byte of storage. Each integer 
which appears in the FORMAT statement 
(i.e., a scale factor, field width, number 
of fractional digits, repetition count) is 
converted to a 1-byte binary value. Decim- 
al points used to separate field width from 
the number of fractional digits in the 
source module FORMAT statement are dropped; 
all other characters appearing in the 
source module statement are represented by 
1-byte hexadecimal cedes. The following 
sections describe the encoding scheme which 
is used. 



The I and F FORMAT codes are represented 
by the hexadecimal values 10 and 0A, re- 
spectively. The I code is followed by the 
1-byte field width value; the F code is 
followed by two bytes, the first containing 
the field width (w) and the second contain- 
ing the number of fractional digits (d). 

E and D FORMAT codes are represented by 
the hexadecimal values 0C and 0E, respec- 
tively. This value is always followed by 
two bytes which represent the field width 
and the number of fractional digits, 
respectively. 



A FORMAT Code 



FORMAT Beginning and Ending Parentheses 



The beginning and ending parentheses of 
the FORMAT statement are represented by the 
hexadecimal codes 02 and 22, respectively. 



The A FORMAT code is represented by the 
hexadecimal value 14. This representation 
is always followed by the 1-byte value of 
w, the number of characters of data. 



Literal Data 



Slashes 



The slashes appearing in the FORMAT 
statement are represented by the hexadec- 
imal code IE. 



The H FORMAT code and the guotation 
marks used to enclose literal data are both 
represented by the hexadecimal value 1A. 
This code is followed by the character 
count (w in the case of the H specifica- 
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tion, the number of characters enclosed in 
quotation marks in the case of the use of 
quotation marks). The literal data follows 
the character count. 



X FORMAT Code 



The specification wX results in the 
production of the hexadecimal code 18 for 
the X; this is followed by the 1-byte value 
of w. 



DEBUG FACILITY 



The following paragraphs describe the 
code produced for the FORTRAN Debug Facili- 
ty statements. The generated instructions 
set up parameters and branch into the 
DEBUGS transfer table. The object-time 
routines which support the Debug Facility 
are described in Appendix E. 



DEBUG STATEMENT 



T FORMAT Code 



The T FORMAT code is represented by the 
value 12. The print position, w, is repre- 
sented by a 1-byte binary value. 



When the source module includes a DEBUG 
statement, debug calls are generated before 
and after each sequence of calls to IBCOM 
for source module input/output statements. 
Additional debug calls are generated to 
satisfy the options listed in the DEBUG 
statement. 



Scale Factor-P 



Beginning of Input/Output 



The P scale factor in the source module 
FORMAT statement is represented by the 
hexadecimal value 08. This code is fol- 
lowed by the value of the scale factor, if 
it was positive. If the scale factor was 
negative, 128 ± is added to it before it is 
stored following the P representation. 



The following code appears before the 
first call to IBCOM for an input or output 
operation: 



L 


15, =V (DEBUG*) 


CNOP 


0,4 


BAL 


14,44(0,15) 



G FORMAT Code 



End of Input/Outpu t 



The G FORMAT Code is represented by the 
hexadecimal value 20. This value is always 
followed by two bytes which represent the 
field width and the number of significant 
digits, respectively. 



The following code appears after the 
last call to IBCOM for an input or output 
operation: 

L 15,=V(DEBUG#) 

CNOP 0, 4 

BAL 14,48(0,15) 



L FORMAT Code 



The L FORMAT code is represented by the 
hexadecimal value 16. This value is fol- 
lowed by the 1-byte field width. 



Z FORMAT Code 



The Z FORMAT code is represented by the 
hexadecimal value 24. This value is fol- 
lowed by the 1-byte field width. 



UNIT Option 



When the DEBUG statement does not 
include the UNIT option, the object-time 
debug routine automatically writes debug 
output on SYSOUT. When UNIT is specified, 
the following code is generated at the 
beginning of the object module: 

L 15, =V (DEBUGS) 

CNOP 0, 4 

BAL 14,12(0,15) 

DC F^SRN' 
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where DSRN is the data set reference number 
to be used for all subsequent debug output. 



TRACE Option 



When the TRACE option is specified in 
the source module DEBUG statement, the 
TRACE call is inserted immediately before 
the code for every labeled statement. The 
code is: 

L 15,=V(DEBUG#) 

CNOP 0, 4 

BAL 14,0(0,15) 

DC F' LABEL 1 



the following 



where LABEL is the label of 
statement. 



SUBTRACE Option 



When the SUBTRACE option is listed in 
the source DEBUG statement, two sequences 
of code are produced: one at the entry to 
the object module, and one prior to each 
RETURN. 

SUBTRAC E ENTRY: The debug call is made at 

the beginning of the object module. The 
call is: 

L 15, =V(DEBUG#) 

CNOP 0,4 

BAL 14,4(0,15) 

At the time of the call, register 13 
contains the address of the SAVE AREA, the 
fifth word of which contains the address of 
the subprogram identification. Bytes 6 
through 11 of the subprogram identification 
are the subprogram name. 

SUBT RACE RETURN: The debug call is made 
immediately before the RETURN statement. 
The call is: 

L 15,=V(DEBUG#) 

CNOP 0,4 

BAL 14,8(0,15) 



subprogram call. Three calls may occur, 
depending on the type of variable (scalar 
or array) and the method of assignment. 

INIT SCALAR VARIABLE : The following code 
is produced after each assignment of value 
to a scalar 
option: 



variable covered by the INIT 



L 15,=V(DEBUG#) 

CNOP 0, 4 

BAL 14,16(0,15) 

DC CL6'NAME , ,CL2' • 

DC XL^L* jXLO.U'T 1 , XL0.4»X« ,XL0.4'B' , 

XL1.4»D' 



where : 



NAME is the name of the 
was set. 



variable which 



L is the length of the variable in 
bytes. 

T is the type code for the variable: 



logical 1-byte item 
logical fullword item 
halfword integer item 
fullword integer item 
double-precision real item 
single-precision real item 
i double-precision complex 

a single-precision complex 



= 2 for a 
= 3 for a 
= 4 for a 
= 5 for a 
= 6 for a 
= 7 for a 
= 8 for . 

item 
= 9 for 

item 
= A for a literal item (not currently 

compiler generated) 

X, B, and D are, respectively, the 
index, base, and displacement which loc- 
ate the item. 



INIT ARRAY ITEM: 



The 



following code is 
produced after each assignment of value to 
an array element: 



L 

CNOP 

BAL 

DC 

DC 

DC 

where: 



15,=V(DEBUG#) 

0,4 

14,20(0,15) 

CLe^AME' ,CL2» • 

XL1 • L» , XL0. 4 ' T' , XL0. 4 • X' , XL0. 4 • B' , 

XL1.4«D' 
XL1 • TAG ' , AL3 (ADDRESS) 



INIT Optio n 



When the INIT option is given in the 
source module DEBUG statement, a debug call 
is produced for every assignment to a 
variable, or to a listed variable if a list 
is provided. The call immediately follows 
each assignment, including those which 
occur as a result of a READ statement or a 



ADDRESS IS THE LOCATION OF THE FIRST 

array element if TAG = 0, or ADDRESS is a 

pointer to the location of the first 

array element if TAG * 0. 

NAME, L, T, X, B, and D are as described 
for a scalar variable. 

I NIT FULL ARRAY : The following code is 
produced when a full array is set by means 
of an input statement specifying the arr-y 
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name or when the array name appears as an 
argument to a subprogram: 

L 15, =V (DEBUG**) 

CNOP 0, 4 

BAL 14,21(0,15) 

DC CL6»NAME',CL2' ' 

DC A (ADDRESS) 

DC XLl'L^XLO.I'T^XI^. VOODOO 1 

DC A (ELEMENTS) 



where: 



ADDRESS is the location of the first 
array element. 

ELEMENTS is a pointer to a word contain- 
ing the number of elements in the array. 

NAME, L # and T are as described for a 
scalar variable. 



immediately preceded by the operation of 
the statements following the AT. As a 
result of the AT statement, an uncondi- 
tional branch to the location of the first 
statement following + e AT is inserted 
before the first instruction generated for 
the statement labeled L. This branch pre- 
cedes any TRACE or SUBTRACE calls which may 
be written for statement L. 

The branch, like all branches performed 
in the object module, consists of a load 
from the branch table, followed by a BCR 
instruction. The branch table entry 
referred to is one constructed for a label 
which the compiler provides for the state- 
ment following the AT. 



TRACE ON STATEMENT 



SUBCHK Option 



A debug call is produced for each 
reference to an array element when the 
SUBCHK option appears without a list of 
array names; when the list is given, only 
references to the listed arrays produce 
debug calls. The debug call appears before 
the reference to the array, and is: 



The debug call produced for the TRACE ON 
statement appears at the location of the 
TRACE ON statement itself; the call is: 

L 15, =V (DEBUG**) 

CNOP 0, 4 

BAL 14,32(0,15) 



TRACE OFF STATEMENT 



L 


15,=V(DEBUG#) 


CNOP 


0,4 


BAL 


14,28(0,15) 


DC 


CL6'NAME , ,CL2» * 


DC 


XLl'TAG' , AL3 (ADDRESS) 


DC 


AL4( ELEMENTS) 


where: 





NAME is the array name. 

ADDRESS is the location of the first 
array element if TAG = 0, or ADDRESS is 
a pointer to the location of the first 
array element if TAG * 0. 



The debug call produced for the TRACE 
OFF statement appears at the location of 
the TRACE OFF statement itself; the call 
is: 

L 15, =V (DEBUG**) 

CNOP 0,4 

BAL 14,36(0,15) 



DISPLAY STATEMENT 



The code for the DISPLAY statement is: 



ELEMENTS is a pointer to a word contain- 
ing the number of elements in the array. 



AT STATEMENT 



The AT statement specifies the label, L, 
of a statement whose operation should be 



L 


15,=V(DEBUG**) 


CNOP 


0,4 


BAL 


14,40(0,15) 


DC 


A(NAMELIST) 


DC 


A(FWRNL**) 



where NAMELIST is the address of the NAME- 
LIST table generated from the DISPLAY list 
by the compiler. This code appears at the 
location of the DISPLAY statement itself. 
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APPENDIX E: MISCELLANEOUS REFERENCE DATA 



The information provided in this appen- 
dix "has its primary use in connection with 
a listing of the compiler. The label lists 
indicate the chart on which a specific 
label can be found, or, for routines which 
are not flowcharted, they provide a 
description of the routine. 



Routine 

Labe l Name 

GO 6 39 ASSIGNMENT 

VAR CHECK 



Com ments 

Checks the mode of as- 
signment variable and 
the expression for con- 
flict in type speci- 
fication. 



PARSE LABEL LIST 



The labels enumerated in the following 
list are used in the flowcharts provided 
for the illustration of the major routines 
used in Parse. 



G0640 LITERAL 
TEST 









G0641 


END STA 




Chart 






XLATE 


Label 


ID 


Routine Name 






G0630 


04 


START COMPILER 






G0631 


ou 


STATEMENT PROCESS 






G0837 


BA 


PRINT AND READ SOURCE 






G0632 


BB 


STA INIT 






G0635 


BC 


LBL FIELD XLATE 






G0636 


BD 


STA XLATE 


G0643 


DO STA 


G0633 


BE 


STA FINAL 




XLATE 


G0642 


BF 


ACTIVE END STA XLATE 






G0844 


BG 


PROCESS POLISH 







SUPPLEMENTARY PARSE LABEL LIST 



Determines the statement 
type and transfers to 
the indicated statement 
processing routine. 



Determines the nature of 
the statement and 
transfers to the appro- 
priate translation rou- 
tine for non— END* 
translates END. 



Constructs the Polish 
notation for the DO 
statement. Locates the 
innermost DO statement 
in a nest of DO's, and 
spts up extended range 
checking. 



The routines described in this section 
are listed by G number labels which are 
presented in ascending order. These rou- 
tines are those used in the operation of 
Parse which are not shown in the section of 
flowcharts for the phase. 



Routine 
Label N ame 
G0287 REASSIGN 

MEMORY 



Comments 

Obtains additional core 
storage, if possible, 
for a specific roll by 
pushing up the rolls 
that precede the re- 
questing roll in the 
block of storage. If 
this is not possible, 
it requests more core 
storage and, if none is 
available, enters PRESS 
MEMORY. 



G06UU DO STA 
CONTROL 
XLATE 



G0645 DIMENSION 
STA XLATE 



GO 64 6 GOTO STA 
XLATE 



G0647 CGOTO STA 



Interprets the loop 
control specification 
in the DO statement and 
constructs the Polish 
notation for these 
controls. 

Determines the validity 
of the specifications 
in the DIMENSION state- 
ment and constructs 
roll entries. 

Determines the type of 
GO TO statement, and 
constructs the Polish 
notation for a GO TO 
statement. 

Constructs the Polish 
notation for a Computed 
GO TO statement. 



GO 6 37 ASSIGNMENT 
STA XLATE 



GO 6 38 ARITH FUN 
DEF STA 
XLATE 



Constructs the Polish 
notation for an assign- 
ment statement. 

Constructs the Polish 
notation for an arith- 
metic function defini- 
tion statement. 



G0648 ASSIGNED 
GOTO STA 
XLATE 

G0649 ASSIGN STA 
XLATE 



Constructs the Polish 
notation for an As- 
signed GO TO statement. 

Controls the construc- 
tions of the Polish 
notation for an ASSIGN 
statement. 
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Routine 

Label Name 

GObSO IF STA 
XLATE 



Comments 
Constructs the 

notation for 

statement. 



Routine 
Label Name 



Comments 



Polish G066U PACK H CODE Interprets the specifica- 
an IF tion for the H format 

code. 



G0651 LOGICAL IF 
STA XLATE 



G0652 IMPLICIT 
STA XLATE 



G0653 REGISTER 
RANGF 



G065U REGISTER 
IMPLICIT 
CHAR 



Constructs the Polish 
notation for a logical 
IF statement. 

cnecks the IMPLICIT 
statement and controls 
the construction of the 
roll entries for the 

statement. 

Controls character en- 
tries for an IMPLICIT 
statement. 

Places the characters in 
the IMPLICIT statement 
on the IMPLICIT roll. 



G0665 PACK FORMAT Controls the registering 

QUOTE of the contents of a 

literal quote specified 

in a FORMAT statement. 

G0666 REWIND STA Constructs the Polish 
XLATF notation for a REWIND 
statement. 



GO 667 BACKSPACE 
STA XLATE 



G0668 END FILE 
STA XLATE 



Constructs the Polish 
notation for a 
BACKSPACF statement. 

Constructs the Polish 
notation for an END 
FILE statement. 



G0655 SCAN FOR 
TYPE QT 
AND SIZE 



Determines the moie and 
size of the variables 
in specification state- 
ments. 



G0669 END FILE 
END 



Completes the Polish 

notation for input/ 

output control state- 
ments. 



G0656 CONTINUE 
STA XLATE 



GO 6 57 CALL STA 
XLATE 



G0658 EXTERNAL 
STA XLATE 



G06 59 FORMAT STA 
XLATE 



Constructs the Polish 
notation for a continue 
statement. 

Constructs the Polish 
notation for a CALL 
statement. 

Validates the use of the 
EXTERNAL statement and 
constructs roll en- 
tries. 

Validates the use of the 
FORMAT statement and 
controls the construc- 
tion of the Polish 
notation for the state- 
ment. 



G0660 FORMAT STA Builds the FORMAT roll 
END from the information 

obtained from the proc- 
essing of the state- 
ment. 



G0661 FORMAT 

LIST SCAN 



C0662 FORMAT 

BASIC SCAN 



Checks the form of the 
literal content of the 
FORMAT statement. 

Interprets the FORMAT 
list and constructs the 
Polish notation for the 
list. 



G0663 ISCAN TEST Checks the size of the 

inteter constant or 
variable specified. 



GO 670 BLOCK DATA 
STA XLATE 

GO 671 STOP STA 
XLATE 



G0672 STOP CODE 
ENTRY 



G0673 PAUSE STA 
XLATE 



GO 67 4 PAUSE STOP 
COMMON 



GO 67 5 PAUSE STOP 
END 



G0676 INIT 

LITERAL 
FOR STOP 
PAUSE 

GO 677 NAMELIST 
STA XLATE 



GO 67 8 COMMON STA 
XLATE 



Validates the use of the 
BLOCK DATA statement. 

Sets up the Polish nota- 
tion for the STOP 
statement. 

Sets up the Polish nota- 
tion for the STOP 
statement. 

Controls the interpreta- 
tion of the PAUSE 
statement. 

Checks the form of the 
specified statement and 
controls the construc- 
tion of the Polish 
notation for the 
statement. 

Registers the constructed 
Polish notation on the 
POLISH roll. 

Controls the interpreta- 
tion of the message 
specified in the PAUSE 
statement. 

Constructs the roll 
entries for the 
NAMELIST statement. 

Constructs the roll 
entries for the COMMON 
specification. 
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Routine 
Labe l Name 
G0679 TEST ID 

ARRAY OR 

SCALAR 

GO 680 DOUBLE PRE 
STA XLATE 



Comments 

Validates the identifica- 
tion of the array or 
scalar used in COMMON. 



Checks the use of the 
DOUBLE PRECISION state- 
ment and controls the 
interpretation of the 



Routine 
Label Name 
G0692 TEST ORDER 



G0693 DMY SEQ 
SCAN 



Comments 

Checks the order in which 
the SUBROUTINE or FUNC- 
TION statement appears 
in the source module. 

Checks the designation of 
the dummy variables for 
call by name or call by 
value. 



GO 681 TYPE STA 
XLATE 



Interprets and constructs 
the roll entries for 
the type specification 
statement. 



G0694 GLOBAL DMY 
SCAN AND 



Checks the identification 
of the global dummy for 
a possible conflict in 
definition. 



G0682 SCAN FOR 
SIZE 



G068 3 TYPE 

SEARCH TEST 
AND REG 



Checks the size specifi- 
cation for the vari- 
ables in type state- 
ments. 

Checks the identification 
of the variables in the 
type specification 
in statement for pre- 
vious definition and 
defines if correct. 



G0695 DEFINE 

FILE STA 
XLATE 

G0696 DATA STA 
XLATE 



GO 6 97 DATA CONST 
XLATE 



Constructs the Polish 
notation for the DEFINE 
FILE statement. 

Constructs the Polish 
notation and roll 
entries for the DATA 
statement. 

Interprets the constants 
specified in the DATA 
statement. 



GO 68 4 ENTRY STA 
XLATE 



Constructs the Polish 
notation and roll 
entries for an ENTRY 
statement. 



G0698 



INIT DATA 
VAR GROUP 



Determines and 
the number of 
specified in 
statement. 



sets up 
elements 
the DATA 



G0685 FUNCTION 
STA XLATE 

G0686 TYPED 

FUNCTION 
STA XLATE 

G0687 FUNCTION 
ENTRY STA 
XLATE 
XLATE 



G0688 SUBROUTINE 
STA XLATE 

G0689 SUBROUTINE 
ENTRY STA 
XLATE 



These routines control 
the construction of the 
Polish notation for a 
FUNCTION subprogram by 
invoking the routines 
which interpret the 
contents of the state- 
ment. 



These routines control 
the construction of the 
Polish notation for a 
SUBROUTINE subprogram 
by invoking the routine 
which interprets the 
contents of the state- 
ment. 



G0699 DATA CONST Validates the specifica- 
ANALYSIS tion of the constants 
used in the DATA 
statement. 



G0700 DATA VAR 
TEST AND 
SIZE 



Checks the definition of 
the variables specified 
in the DATA statement 
for usage conflict, and 
registers the variables 
if no conflict is 
found. 



G0701 MOVE TO Moves information for 
TEMP DATA statement to TEMP 

POLISH ROLL POLISH roll from WORK 
roll. 



G0702 READ STA 
XLATE 



Checks the type of READ 
statement and controls 
the interpretation of 
the statement. 



GO 690 SUBPROGRAM Common closing routine 
END for ENTRY, FUNCTION, 

and SUBROUTINE state- 
ments. 



G0691 SPROG NAME 
SCAN AND 
REG 



Checks the identification 
Of the SUBROUTINE or 
FUNCTION subprogram for 
conflicts in defini- 
tion. 



G0704 READ WRITE Interprets the elements 
STA XLATE of the READ or WRITE 
statement and con- 
structs the Polish 
notation for the 
statement. 



G0705 END QT 
XLATE 



Constructs the Polish 
notation for the END= 
quote. 
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Routine 
Label Name 
G0706 ERR QT 

XL ATE 



Comments 

Constructs the l.lish 
net** ion for the ERR~ 
quote in the RFaD 
statement. 



Routine 
Label Name 
G0723 STA XLATE 

EXIT 



Comments 

Replaces the Polish nota- 
tion for a statement 
with error linkage if 
indicated. 



G0707 REGISTER 
IBCOM 



G0708 



REGISTER 
ERROR LINK 



Inserts a roll entry for 
a call to IBCOM. 

sets the roll entry for 
the generac^ou of error 
linkage. 



G0709 READ B STA Initialize for the con- 



XLATE 
G0710 PUNCH STA 

XLATE 
G0711 PRINT STA 

XLATE 

G0712 F2 10 
XLATE 



struction of the Polish 
notation ior the in- 
dicated statement. 



Cons ructs the Polish 
notation for the in- 
dicated input/output 
statement and inter- 
pi it > FOF / AT des i gna- 
tions associated with 
the input/output state- 
ment. 



G0724 ILLEGAL 

STA FAIL 
G0725 ORDER FAIL 
G0726 ALLOCATION 

FAIL 
G0727 ILLEGAL 

NUMBER 

FAIL 
G0728 SUBSCRIPT 

FAIL 
G0729 ID CONFLICT 

FAIL 
G0730 TYPE 

CONFLICT 

FAIL 



G0731 VAR SCAN 



These routines set up 
diagnostic messages for 
the type of error indi- 
cated by the routine 
name. 



Checks definition of 
variables in the source 
module; defines as 
scalar if undefined. 



G0713 IOL LIST 
XLATE 



G0714 FIND STA 
XLATE 



G0715 RETURN STA 
XLATE 



Interprets and constructs 
th<- Polish f.ciation for 
the list associated 
with the indicated 
input /output statement. 

Constructs the Polish 
notation for the FIND 
statement. 

Constructs the Polish 
not at ion for the RETURN 
statement. 



G0716 EQUIVALENCE Constructs the roll en- 
STA XLATE tries for the EQUIVA- 
LENCE statement 



G0732 ARRAY SCAN 



G0733 SUBSCRIPT 
ANALYSIS 



Constructs the Polish 
notation and roll 
entries for array re- 
ferences. 



Determines the nature of 
an array reference for 
purposes of subscript 
optimization. 



G0734 SCRIPT ITEM Determines whether a 

ANALYSIS subscript expression is 

a linear function of a 

DO variable, and sets 

ANSWER BOX. 



G0717 DIMENSION 
SEQ 
XLATE 



GO 71 8 TEMP MAKER 



Constructs the roll en- 
tries for the .1 inten- 
sions designated ±_r an 
array. 



Increments 
temporary 



used 
sions 



fot 



pointer for 

locations 

dummy dimen- 



G0735 NOTE LINEAR Registers a linear sub- 
SCRIPT script expression on 
SCRIPT roll. 



G0736 RESTORE 

NONLINEAR 
SCRIPT 



Builds the Polish nota- 
tion for a nonlinear 
subscript expression on 
Polish roll. 



G0719 SPECIFI- 
CATION 
STA EXIT 
G0720 JUMP END 
G0721 ACTIVE END 
G0722 HEAD STA 
EXIT 



Set flags and return. 



G0737 MOVE ON 

EXIT FALSE 



G0738 SCRIPT 
SCALAR 
ANALYSIS 



Moves one group from WORK 
roll to POLISH roll, 
sets ANSWER BOX to 
false, and returns. 



Determines whether a 
scalar used in a sub- 
script is a DO variable 
and sets ANSWER BOX. 
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Routine 
Label Name 
G0739 SCRIPT 
CONST 
ANALYSIS 



Continents 

Separates constant used 
in a subscript expres- 
sion as either induc- 
tion variable coeffi- 
cient or additive 
constant. 



Routine 
Label Name 
G0752 OP CHECK 

AND DEPOSIT 



Comments 

The current and previous 

according to a prece- 
dence, and a Polish 
notation is con- 
structed. 



Q07U0 DEFINE 
SCRIPT 
GROUP 

G0741 REGISTER 
SCRIPT 

oftuur 



G07UI4 TERM SCAN 



G07U5 ELEMENT OP 
SEQ SCAN 



G07U6 UNAPPENDED 
SPROG ARG 



G0747 FUNCTION 
ELEMENT 



G0748 CONST 

ELEMENT 



G074 9 SCALAR 
ELEMENT 

G0750 ELEMENT 
MOVE 



G0751 OP SCAN 
CHECK 
DEPOSIT 



taining zeros on the 
SCRIPT roll. 

Defines a subscript ex- 
pression on the SCRIPT 
roll by setting the 
traits, displacement, 
and array reference. 

Initializes the construc- 
tion of Polish notation 
for a new term in an 
expression. 

Constructs the Polish 
notation for a term in 
an arithmetic ex- 
pression. 

Exits from expression 
scanning on finding an 
array or subprogram 
name not followed by a 
left parenthesis; en- 
sures reference is 
correct. 

Determines whether a 
function call in an 
expression is to a 
statement function, a 
library function, or a 
global subprogram; 
calls SPROG ARG SEQ 
SCAN to scan arguments. 

Scanning expression, if 
compiler finds non- 
letter, non-left paren- 
thesis, it goes here; 
determines if really a 
constant. 

Ensures that scalar is 
registered. 

Moves pointer to POLISH 
roll for any element in 
expression. 

Determines the operation 
indicated in an expres- 
sion, sets up the 
appropriate driver, and 
falls through to OP 
CHECK AND DEPOSIT. 



G0753 GEN AND REG Determines the nature of 

EXPON SPROG an exponentiation, and 

records the required 

subprogram on the 

GLOBAL SPROG roll. 

G0751 REG COMPLEX Determines the nature of 
SPROG an operation involving 
complex variables* and 
registers the appropri- 
ate routine on the 
GLOBAL SPROG roll. 

G0755 A MODE PICK Checks and sets mode of 
AND CHECK operator by inspecting 
the first of a pair of 
operands. 



G0756 MODE PICK Actually places 

field in driver. 



mode 



GO 7 57 B MODE PICK With 
AND CHECK 



second operand and 
driver set by A MODE 
PICK AND CHECK, resets 
driver mode; if complex 
raised to a power, 
ensures power is 
integer. 

G0758 MODE CHECK Determines whether modes 

of operands are valid 
in relational and log- 
ical oner at ions * 

G0759 NUMERIC EXP Determines that an opera- 

CHECK tion or an expression 

is numeric, as opposed 

to logical, for 

compatibility. 

G0760 NUMERIC EXP Uses NUMERIC EXP CHECK, 
CHECK AND then prunes bottom of 
PRUNE POLISH roll. 

G0761 SPROG ARG Constructs the Polish 
SEQ SCAN notation for the argu- 
ment list designated 
for a subprogram. 



G0762 ARG TEST 
AND PRUNE 



G0763 TEST FOR 
ALTERABLE 



Tests the number and type 
of arguments to library 
routine; moves label 
arguments to CALL LBL 
roll. 

Determines whether a 
scalar has been passed 
as a subprogram 
argument. 
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Routine 

Labe l Name 

G076U ID SCAN 

NO USE 



Comments 

Sets a flag tested in 
MODE SET so that low- 
order bits of roll are 
not altered when vari- 
able is defined; state- 
ment does not use 
variable. 



Routine 
Label Name 
G0776 REGISTER 

FX CONST 



G0777 CONST 

ANALYSIS 



Comments 

Records new integer con- 
stant if not previosuly 
defined. 

Determines the type of a 
constant and jumps to 
proper conversion rou- 
tine. 



G0765 ID CLASSIFY Goes to ID CLASSIFY after 
NO USE setting flag to indi- 
cate variable has not 
been used and mode 
should not be set. 



G0766 ID SCAN 



Compiles name from source 
in central area and 
goes to ID CLASSIFY. 



G0767 ID CLASSIFY Determines the classifi- 
cation of a name — 
scalar, array, subpro- 
gram, etc., and leaves 
pointer in WO; exits 
false if name not 
defined. 



G0768 REGISTER 
SCALAR 

G0769 REGISTER 
GLOBAL 
SPROG 
REGISTER 
RUNTIME GS 

G0770 REGISTER 
GLOBAL 
SPROG ROLL 

G0771 MODE SET 



Records new 
SCALAR roll. 



name 



on 



Determines if name is 
already a defined sub- 
program; if not re- 
cords it on GLOBAL 
SPROG roll. 

Records name on GLOBAL 
SPROG roll. 



Determines the mode of 
the indicated variable, 
logical, integer, com- 
plex, etc. , and inserts 
code in pointer in WO. 



G0772 CONST SCAN Controls the translation 

and recording of 
constants. 



G0773 REGISTER 
COMPLEX 
CONST 



G0774 REGISTER 
FL CONST 



G0775 REGISTER 

WORK CONST 



Records complex and 
double- precis ion com- 
plex constants not pre- 
viously defined on 
appropriate roll. 

Records single- and 
double- precis ion real 
constants on appropri- 
ate roll when not pre- 
viously defined. 

Records constant in WO as 
new integer constant if 
not defined. 



G0778 CPLX CONST Converts a complex 
ANALYSIS constant. 

G0779 CHECK CONST Checks for unary minus 
SIGN sign on constant. 



G0780 SCAN CONST 
SIGN 



Scans first character of 
a constant for a sign; 
sets up driver if unary 
minus. 



G0782 HEXADECIMAL Converts a 
CONST SCAN constant. 



hexadecimal 



G0783 REGISTER 
HEX CONST 



G0784 LBL ARG 
SCAN 



G0785 SCAN 

HOLLERITH 
ARGUMENT 



G0786 LITERAL 

CONST SCAN 



G0787 LITERAL 

CONST SCAN 
PAUSE 

G0788 REGISTER 
LITERAL 
CONST 



G0789 INIT PACK 
LITERAL 



G0790 PACK 

LITERAL 
COMPLETE 

G0791 PACK 

LITERAL 
CONST 

G0792 LOOK FOR 
ONE QUOTE 



Records new c onstant on 
HEX CONST roll if not 
previously defined. 

Checks validity of a 
label argument to a 
subprogram and records 
label as jump target. 

Scans an IBM card code 
argument to a sub- 
program, and records as 
literal constant. 

Distinguishes literal 
constants from logical; 
converts and records. 

Packs a literal constant. 



Records literal constant 
on LITERAL CONST roll 
if not previously de- 
fined. 



Initializes 
sion of 
constant. 



for 

a 



conver- 
literal 



Moves literal constant 
onto TEMP LITERAL roll 
if packed. 

Converts a literal con- 
stant from source 
input. 

Checks for a quotation 
mark not followed by a 
second quotation mark; 
sets ANSWER BOX. 
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Routine 
Label Name 
G079 3 PACK TWO 

FROM WORK 

FROM WORK 



Comments 

Packs low-order byte from 
last one or two groups 
on WORK roll onto 
LITERAL TEMP roll. 



G0795 PACK CRRNT Packs current character 
CHAR onto LITERAL TEMP roll. 



G0796 PACK CHAR 



General routine to actu- 
ally place a byte in a 
word which, when com- 
plete, is placed on the 
LITERAL TEMP roll. 



G0797 SYMBOL SCAN Assembles identifier from 

input in SYMBOL 1, 2, 
and 3, and returns. 



G0798 LOGICAL 

CONST SCAN 



G07 99 JUMP LBL 
SCAN AND 
MOVE 



G0800 FORMAT LBL 
SCAN 



Scans logical constants 
from source input and 
records as integers. 

Scans label, defines it 
as jump target and 
pointer on POLISH roll. 
Locates transfers from 
innermost DO loops that 
are possible extended 
range candidates. Also 
checks for possible 
re-entry points into 
innermost DO loops, and 
tags such points. 

Scans a label, registers 
it if necessary, and 
ensures that it is a 
FORMAT label if already 
defined. 



Routine 
Label Nam e 
G0806 NEXT 

CLOSING 
SLASH 



Comments 

Scans source input until 
second of the next pair 
of slashes not enclosed 
in parentheses. 



G0807 NEXT ZERO Scans source input until 
COMMA SLASH next comma or slash not 
OR CRP enclosed in parentheses 

or a closing right 

parenthesis. 



G0808 NEXT ZERO 
R PAREN 



G0809 COMMA TEST 



G0810 INTEGER 
TERM 

SCAN AND 
MOVE 



Scans source input until 
next zero level right 
parenthesis. 

Advances scan arrow and 
returns ANSWER BOX true 
if next active charac- 
ter is a comma; if it 
is a letter, sets up 
missing comma message, 
does not advance, and 
returns true; if it is 
neither, returns false. 

Scans integer constant or 
variable, defines on 
appropriate roll, puts 
pointer on POLISH roll. 



G0811 INTEGER Scans integer constant; 

CONST SCAN defines on FX CONST 

AND MOVE roll if required; puts 

pointer on POLISH roll. 

G0812 INTEGER VAR Scans integer variable; 
SCAN AND defines on roll if re- 
MOVE quired; puts pointer on 

POLISH roll. 



GQ801 FORMAT LBL Tests that pointer in 



TEST 



indicates format label 
(vs. jump target 
label); if not, there 
is an error. 



G0813 INTEGER 
TEST 



Determines whether a 
pointed to variable or 
constant is an integer. 



G0802 LBL SCAN 



G0803 REGISTER 
LBL 



Scans referenced label, 
defines on LBL roll if 
required, produces er- 
ror messages, leaves 
pointer in WO. 

Records label on LBL roll 
if not previously 
defined; leaves pointer 

in WO. 



G08 04 NEXT ZERO Scans source input to 
LEVEL COMMA next comma not in 
NEXT ZERO parentheses or to close 
COMMA off a pair of paren- 
OR R PAREN theses. 



G0805 NEXT ZERO 
COMMA 
OR CS 



Scans source input until 
next comma or slash 
not in parentheses. 



G0814 SIGNED 
INTEGER 
SCAN 



G0815 INTEGER 
SCAN 



G0816 DP CONST 
MAKER 



G0817 DP ADJUST 
CONST 



Scans and converts signed 
integer constant; de- 
fines on FX CONST roll 
if required. 



Scans and converts an 
unsigned integer con- 
stant and register on 
FX CONST roll if 
required. 

Builds a double-precision 
constant from source 
input. 

Used in converting float- 
ing point numbers; 
adjusts for E or D 
field. 
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Routine 
Label Name 
G0818 CONVERT TO 

FLOAT 

G08 20 CLEAR TWO 

AND EXIT 

TRUE 
G08 21 CLEAR ONE 

AND EXIT 

TRUE 



G08 2 3 EXIT TRUE 
EXIT TRUE 
ML 

G08 2 4 CLEAR ONE 
AND EXIT 
FALSE 



Comments 

Converts integer constant 
to floating point. 

Remove the specified num- 
ber of groups from the 
WORK roll, set ANSWER 
BOX to true, and re- 
turn. 



Sets ANSWER BOX to true 
and returns. 



Removes one group from 
WORK roll, sets ANSWER 
BOX to true, and 
returns. 



G0825 EXIT FALSE Sets ANSWER BOX to false 

and returns. 



Remove specified number 
of groups from WORK 
roll and return. 



Returns. 



G08 26 CLEAR TWO 
AND EXIT 

G0827 CLEAR ONE 
AND EXIT 

G0829 EXIT 

EXIT ML 
EXIT ON ROLL 



G08 32 SYNTAX FAIL Records syntax error mes- 
ML sage and goes to FAIL. 

ILLEGAL 
SYNTAX FAIL 
SYNTAX FAIL 



G0833 FAIL 



G08 3U STATUS 
CONTROL 



If JPE flag off, restores 
WORK and EXIT roll 
addresses from last 
status control, house- 
keeps Polish notation 
through STA XLATE EXIT, 
and returns with ANSWER 
BOX set to false; if 
the flag is on, values 
are restored for JPE 
and exit is to the 
location following last 
JPE POP instruction. 

Saves addresses of WORK 
and EXIT roll bottoms. 



Routine 

Label N ame 

G08 39 TEST FOR 
ERROR 
MESSAGE 



G0840 PRINT 

MESSAGES 



Comments 

Determines whether error 
messages are to be 
printed; if so, prints 
dollar siqn markers. 



Prints line 
messages. 



of error 



G08U1 TEST AND Clears output .area for 
ZERO PRINT printer. 
BUFFER 



Scans source input for 
assignment statement 
(flag 1) or Logical IF 
with assignment for 
consequence (flag 2). 

Puts card onto SOURCE 
roll and re-enters IN1T 
READ A CARD at proper 
point. 

Scans input to next 
source character not of 
a class of characters 
specified as input to 
routine. 



G0846 REENTRY Entry point used to con- 
SKIP TO NEXT tinue masking operation 
CHAR MASK on a new card. 



G0842 INIT READ 
A CARD 



G08H3 READ A 
CARD 



G0845 SKIP TO 

NEXT CHAR 
MASK 



GO 8 47 NEXT CHAR 

NEXT 

CHARACTER 
G08U8 NEXT CHAR 

ML 

NEXT CHARACTER 

ML 



Advance scan arrow to 
next active character. 



G08U9 BCD TO 
EBCDIC 

G0850 DIGIT CONV 
INITIAL 



GO 8 51 MAPT1 TO 
TMP1 



Converts CRRNT CHAR 
BCD to EBCDIC. 



from 



Initializes for the con- 
version of a number 
from decimal to binary 
(resets digit counts, 
clears DATA area, etc. ) 

Converts value in format 
of TOP or BOTTOM, a 
virtual address, to a 
true address. 



G0835 DIGIT CONV Converts integer from 
SCAN decimal to binary, and 

leaves in DATA area. 



G08 36 CONV ONE 
DIGIT 



G0838 PRINT A 
CARD 



Converts decimal digit to 
binary, and leaves in 
DATA area. 



Controls printing 
source listing 
error messages. 



G10 34 BUILD LOOP Constructs group on LOOP 
DATA GROUP DATA roll. 



Checks for and sets flag 
if it finds unary minus 
in DATA statement. 





G1035 


DATA TERM 


. to 




ANALYSIS 


; in 








G1037 


CONST 


of 




REGISTER 


and 




EXIT 



Common exit routine for 
constant recording rou- 
tines; leaves pointer 
to constant in WO. 
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Routine 
Label Name 
G1038 T AND F 



\MCT CPBH 



Comments 

Scans for logical con- 
stants T and F in DATA 
statements. 



G1039 EXIT ANSWER General routine used by 

all EXITs which set 
ANSWER BOX to store 
value in ANSWER BOX and 
return. 



G1040 DEBUG STA 
XLATE 

G10U1 AT STA 
XLATE 

G1042 TRACE STA 
XLATE 



Translates 
ment. 



DEBUG state- 



Constructs AT roll entry 
from AT statement. 

Constructs Polish nota- 
tion for TRACE state- 
ment. 



G10U3 DISPLAY STA Constructs Polish nota- 

XLATE tion and roll entries 

for DISPLAY statement. 



Label 
G0376 



G0381 

G0437 

G0397 

G0402 

G0UU2 
G0443 
G04«4<4 
G0h«+5 
G0441 
G0H03 
G0U05 
G0U38 
G05U5 



Chart 

_ID 

CH 



CK 
CL 



CM 
CN 
CO 



CP 
CQ 
CR 

cs 

CT 
CU 
CV 
CW 
CX 



R outine N ame 

ENTRY NAME ALLOCATION 

COMMON ALLOCATION AND 

OUTPUT 

EQUIV ALLOCATION PRINT 

ERRORS 

BASE AND 

ALLOC 

SCALAR ALLOCATE 



BRANCH TABLE 






GLOBAL 



SPROG 



PASS 1 

ALLOCATE 

SPROG ARG ALLOCATION 

PREP NAME LI ST 

LITERAL CONST ALLOCATION 

FORMAT ALLOCATION 

EQUIV MAP 

GLOBAL SPROG ALLOCATE 

BUILD NAMELIST TABLE 

BUILD ADDITIONAL BASES 

DEBUG ALLOCATE 



SUPPLEMENTARY ALLOCATE LABEL LIST 



G1044 IEYSKP 
SKIP TO 
NEXT 
PROGRAM 

G1070 PRESS 
MEMORY 



Calls IEYFORT to skip to 
end of present source 
module when roll stor- 
age is exhausted. 

Called by REASSIGN MEMORY 
to obtain additional 
core storage from roll 
space that is no longer 
in use. If it obtains 
32 or more bytes, exit 
is back to REASSIGN 
MEMORY. Otherwise, 
exit is to IEYNOCR in 
IEYFORT to print NO 
CORE AVAILABLE messaae. 



ALLOCATE LABEL LIST 



The labels enumerated in the following 
list are used in the flowcharts provided 
for the illustration of the major routines 
used by Allocate. 



Labe l 
G0359 
G0U51 



G0362 




CB 



G0361 


CC 


G0365 


CD 


G0371 


CE 


G0372 


CF 



G0374 



CG 



R outine Name 

START ALLOCATION 

ALPHA LBL AND L SPROGS 

ALPHA SCALAR ARRAY AND 

SPROG 

PREP EQUIV AND PRINT 

ERRORS 

BLOCK DATA PROG ALLOCATION 

PREP DMY DIM AND PRINT 

ERRORS 

PROCESS DO LOOPS 

PROCESS LBL AND LOCAL 

SPROGS 

BUILD PROGRAM ESD 



The routines described in this section 
are listed by G number labels which are 
presented in ascending order. These rou- 
tines are those used in the operation of 
Allocate which are not shown in the section 
of flowcharts for the phase. 



Routine 
Label Name 
G0363 PREPROCESS 

EQUIV 



G0364 REGISTER 
ERRORS 
SYMBOL 



G0366 CHECK DMY 
DIMENSION 



G0367 GLOBAL DMY 
TEST 



G0368 DMY DIM 
TEST AND 
REG 



Comments 

Checks the data contained 
on the EQUIVALENCE roll 
and computes the 
required addresses. 

Checks the ERROR SYMBOL 
roll for the presence 
of the error just 
detected. All dupli- 
cate entries are pruned 
from the roll and all 
new entries placed on 
the roll. 

The dummy dimension is 
checked for definition 
as a global dummy vari- 
able, or in COMMON. 



Sets a 
dummy 
ENTRY 
to the 



pointer to the 

array on the 

roll; a pointer 

ARRAY roll is 



also set for each dummy 
array. 

The DMY DIMENSION roll is 
rebuilt with the infor- 
mation obtained from 
the COMMON DATA TEMP, 
TEMP, and GLOBAL DMY 
rolls. 
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Routine 
Label Name 
GO 369 DMY DIM 

TEST 



G0370 DMY 

CLASSIFY 



G0373 REGISTER 
BRANCH 
TABLE 

GO 37 5 PUNCH 

REMAINING 
ESD BUFFER 
PUNCH 
REMAINING 
CARD 

GO 378 SEARCH 
ROLL BY 
MAGNITUDE 



G0379 PRINT 
COMMON 
ERRORS 

G0380 PRINT 
COMMON 
HEADING 

G0382 EQUIV 

ALLOCATION 



GO 38 3 FLP AND 
PROCESS 
EQUIV 

GO 384 PROCESS 
EQUIV 



GO 38 5 INTEGRATE 



Comments 

The dimension data is 
checked for having been 
previously defined on 
the NAMELIST ITEMS and 
COMMON DATA rolls. 

Classifies a dummy, de- 
fining it as scalar if 
undefined; if it is an 
array sets call by name 
tag. 

Places work containing 
zero on the BRANCH 
TABLE roll. 

Punches a card. 



Routine 
Label Name 
G0386 TEST FOR 

BOUNDARY 



The' GENERAL ALLOCATION 
roll is searched to 
check if the largest 
equivalenced area has 
been allocated. 

Sets up for, and prints, 
COMMON allocation er- 
rors. 

COMMON storage map head- 
ing is printed. 



Builds the EQUIV 
ALLOCATION roll from 
the boundary calcu- 
lated; records the 
absolute address as- 
signed to the vari- 
ables. 

Inverts the contents of 
the EQUIVALENCE roll. 



Constructs complete 
EQUIVALENCE sets on the 
the GENERAL ALLOCATION 
roll using information 
on the EQUIVALENCE 
roll. 

Assigns locations rela- 
tive to the first vari- 
able listed for all 
variables in an EQUIVA- 
LENCE set if not al- 
ready allocated. 



Comments 

Sets and checks the 
smallest equivalenced 
area and highest bound- 
ary required for allo- 
cation of the variables 
indicated; resets pro- 
gram break according to 
requirement. 



G0387 CSECT EQUIV Controls the ' allocation 

ALLOCATION of EQUIVALENCE set:; 

equal to or greater 

than 3K bytes into a 

new control section. 

G0388 PRINT CSECT Sets up and formats the 
EQUIV MAP printing of the storage 
map for EQUIVALENCE 
sets equal to or great- 
er than 3K bytes. 



G0389 BUILD 
COMMON 
ALL ROLL 



G0391 SEARCH FOR 
LARGE 
ARRAYS 



G0392 BUILD A 

NEW CSECT 



G0393 PRINT A 
ARRAY 
CSECT MAP 



G039U CONV TEMP3 
TO HEX 



G0395 GLOBAL DMY 
ALLOCATE 



G0396 TEST FOR 
CALL BY 
NAME 



Calculates the base and 
displacement for EQUIV- 
ALENCE sets equal to or 
greater than 3K bytes 
and registers these 
sets on the COMMON 
ALLOCATION roll. 

Determines the size of 
arrays not defined as 
EQUIVALENCE or COMMON. 
Obtains the arrays that 
are equal to or greater 
than 3K bytes. 

Sets the program name and 
obtains a new cont rol 
section for the alloca- 
tion of arrays and 
EQUIVALENCE sets. 

Sets the information for 
the printing of the ro 
for arrays equal to or 
greater than 3K bytes. 

Converts the contents of 
the temporary register 
to hexadecimal. 

Assigns storage for glob- 
al dummy variables; 
expands the contents of 
the BASE TABLE roll, as 
required. 

Determines whether the 

indicated variable was 

called by name or 
called by value. 



19U 



Routine 
Labe l Name 

GO 39 8 ALLOCATE 
SCALAR 
BOUNDARY 



GO 39 9 ALLOCATE 
SCALAR 



Co m ments 

Sets up allocation of 
scalars according to 
the size of the 
variable. 

Formats the allocation of 
scalars not defined as 
global dummies in COM- 
MON or in EQUIVALENCE 
sets. Initializes for 
the printing of the 
scalar map and calcu- 
lates the base and 
displacement. 

Determines if the vari- 
able is defined as a 
global dummy, in COMMON 
or in an EQUIVALENCE 
set. If it is, it sets 
the ANSWER BOX = true. 

Sets the type of the ESD 
cards that are to be 
punched and initializes 
for the allocation of 
subprogram addresses. 



G0U06 ADJUST AND Sets the format for the 
OUTPUT NAME punching of the 
NAMELIST name, and 
adjusts for storage. 



GO 400 CED SEARCH 



GO 4 04 ALLOCATE 
SPROG 



G0407 PUNCH NAME 
LIST AND 
FIELD 



Sets the format for the 
punching of the address 
allocated for each 
NAMELIST according to 
storage required. 






J-Ormat 



C ^ x-1 



WORD 



GO MO 9 ADVANCE 

PROG BREAK 
AND PUNCH 



GO HIO PUNCH 

LITERAL 



G0411 MOVE TO 

PUNCH BUFF 



punching of the mode of 
the NAMELIST variable. 

Increases the item PRO- 
GRAM BREAK according to 
the storage allocation 
required for the 
variables indicated. 

Obtains the number of 
bytes and the address 
of the roll indicated 
for punching of literal 
constants. 

Moves the indicated data 
to the appropriate 
punch buffer. 



G0412 PUNCH TXT Punches the indicated 
CARD TXT card after setting 

up the address and 
buffer information. 



Routine 

Label Name 

G0413 PUNCH 

REMAINING 
TXT CARD 



G0414 PUNCH ESD 
G0415 PUNCH LD 
ESD 



Comments 

Punches the remaining 
card indicated, after 
the area from which 
data was being taken 
has been punched. 

Punches the indicated ESD 
cards for the program 
area indicated. 



G0416 PRINT ERROR Prints the contents of 
LBL ROLL this roll which con- 
tains the errors noted 
during operation. 

G0417 CONVERT LBL Converts the label of an 

erroneous statement to 
BCD for printing. 

G0418 PRINT ERROR Prints the contents of 
SYMBOL the ERROR SYMBOL roll. 



G0420 PRINT 

SCALAR OR 
ARRAY MAP 

G0421 PRINT INIT 

MAP 
G0422 TEST AND 

PRINT MAP 



G0423 PRINT MAP 
HEADING 



G0424 PRINT 

FORMAT MAP 

G0425 PRINT 

HEADING 
MESSAGE 

G0426 PRINT MAP 
PRINT MAP 
ML 



G04 31 PRINT 

REMAINING 

BUFFER 
G0432 PRINT ERROR 

REMAINING 

BUFFER 

G0433 ALLOCATE 
FULL WORD 
MEMORY 

G04 34 ALLOCATE 

MEMORY 
G04 35 ALLOCATE 

BY TYPE 



Prints the indicated map. 



Checks the existence of 
processing of a storage 
map. Initiates the 
printing of the indi- 
cated map if one is not 
already being printed. 

Prints the heading of the 
indicated storage map 
for the variables 
designated. 



Prints map 
statements. 



Of FORMAT 



Prints the heading in- 
dicated for error 
messages. 

Prints the variables as- 
sociated with the stor- 
age map heading from 
the rolls indicated. 

Print the remaining in- 
formation in the print 
buffer after the data 
has been obtained from 
the indicated storage 
area. 

Initializes for the 
allocation of a full 
word of storage. 

Allocate storage accord- 
ing to the type of the 
variable indicated; 
fullword, halfword, or 
byte. 



Appendix E: Miscellaneous Reference Data 195 



Routine 

Labe l Name 

G04 3 6 CALCULATE 
SIZE AND 
BOUNDARY 



GO 4 39 CALCULATE 
BASE AND 
DISP 



G0440 REGISTER 
BASE 

G0446 BUILD 

FORMATS 



GO 44 7 INCREMENT 
PNTR 



Comments 

Determines the size and 
the boundary required 
for the variable indi- 
cated. 

Determines the base table 
entry and displacement 
for variable being 
allocated, constructing 
a new base table entry 
if necessary. 

Constructs a new BASE 
TABLE roll group. 

The base and displacement 
for FORMAT statements 
are calculated and the 
PROGRAM BREAK increased 
as required. 

Increases the address 
field of the pointer to 
the indicated roll so 
that the pointer points 
to the next group on 
the roll. 



G0448 ID CLASSIFY Variables are checked for 

a previous classifica- 
tion as a global dummy, 
a scalar, an array, 
global sprog, used 
library function, or a 
local sprog. 



G0449 REGISTER 
SCALAR 



GO 4 50 MODE SET 



Builds new group onto the 
SCALAR roll. 



Sets the mode of the 

variable to fixed or 

floating, explicit or 

implicit, or not used. 



GO 4 55 CLEAR THREE Prunes three groups from 
AND EXIT the WORK roll, and 
TRUE exits with a true ans- 

wer in ANSWER BOX. 



G04 56 CLEAR TWO 
AND EXIT 

TRUE 



GO 4 57 CLEAR ONE 
AND EXIT 
TRUE 



Prunes two groups from 
the WORK roll,, and 
exits with a true 
answer in ANSWER BOX. 

Prunes one group from the 
WORK roll, and exits 
with a true answer in 
ANSWER BOX. 



Routine 
Label Name 
G0460 CLEAR TWO 

AND EXIT 

FALSE 



G04 61 CLEAR ONE 
AND EXIT 
FALSE 



G0462 EXIT FALSE 



G0464 CLEAR FOUR 
AND EXIT 



G04 65 CLEAR THREE 
AND EXIT 



G04 66 CLEAR TWO 
AND EXIT 



G0467 CLEAR ONE 
AND EXIT 

G0468 EXIT 



Comments 

Prunes two groups from 
the WORK roll, and 
exits with a false 
answer in ANSWER BOX. 

Prunes one group from the 
WORK roll, and exits 
with a false answer in 
ANSWER BOX. 

Sets ANSWER BOX to false, 
and exits. 

Prunes four groups from 
the WORK "roll, and 
exits. 

Prunes three groups from 
the WORK roll, and 
exits. 

Prunes two groups from 
the WORK roll, and 
exits. 

Prunes one group from the 
WORK roll, and exits. 

Obtains return address 
from the EXIT roll, and 
transfers to that 
address. 



G0458 



EXIT TRUE 
EXIT TRUE 
ML 



Set ANSWER 
and exit. 



BOX to true 



UNIFY LABEL LIST 



The labels enumerated in the following 
list are used in the flowcharts provided 
for the illustration of the major routines 
u.sed by Unify. 



Routine Name 
START UNIFY 

ARRAY REF ROLL ALLOTMENT 

CONVERT TO ADR CONST 

CONVERT TO INST FORMAT 

DO NEST UNIFY 

SUPPLEMENTARY UNIFY LABEL LIST 



The routines described in this section 
are listed by G number labels which are 
presented in ascending order. These rou- 
tines are those used in the operation of 
Unify which are not shown in the section of 
flowcharts for the phase. 





Chart 


Label 


ID 


G0111 


07 


G0145 


DA 


G0113 


DB 


G0112 


DC 


G0115 


DD 
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Routine 
Label Name 
G0114 CALL GEN 



GO 11 6 NOTE ARRAY 
ALLOCATION 
DATA 

G0117 LEVEL ONE 



G0118 DO LOOP 
UNIFY 



GO 11 9 SWEEP 
SCRIPT 
EXP NOTE 



GO 120 ZERO COEF 
UNIFY 



Comments 



Routine 
Label Name 



■pvrjo maTtr-' 



Transfers to the Gen G0126 STANDARD 
r»hase of the compilers 

Processes SCRIPT roll 
block to reflect stor- 
age allocation. 

Sets variables for the 
processing of a single 
loop or the outer loop 
of a nest of loops. 

Controls the processing 
of script data asso- 
ciated with current 
innermost loop. 

Compares the area code 
and the outer coeffi- 
cient of all other 
entries on the NEST 
SCRIPT roll to the bot- 
tom entry on the roll. 

Sweeps the script entries 
for the innermost loop, 
determining whether the 
outer coefficient is 
zero and that the inner 
coefficients are also 
the same. Depending 
upon the condition, the 
loops are re-registered 
on the LOOP SCRIPT 
roll. 



Comments 

Processes STD SCRIPT roll 



BilCII 



nvi'o iu 



G0127 CONVERT 
NONSTD 
SCRIPT TO 
STD 



G0128 SIGN ALLOC 
DISPLACE- 
MENT 



G0129 DELTA GE 

4087 UNIFY 



G0130 DELTA LE 

4087 UNIFY 



G0121 NOTE SCRIPT Establishes the nature of 
EXP the script entries as 

standard or non- 
standard. 



G0122 ESTABLISH 
STD SCRIPT 
EXP 



G0123 NOTE HI 
FREQ STD 



G012U SCRIPT EXP 
UNIFY 



Forms the LOOP CONTROL 
and REG roll entries 
for each STD SCRIPT 
pointer found in WO, 
also registering the 
STD SCRIPT LOOP CONTROL 
rung. 

Checks the frequency used 
for a particular stand- 
ard script expression, 
and sets the frequency 
count. 

Controls the processing 
of innermost LOOP 
SCRIPT roll entries 
with matching area code 
and outer coefficients; 
also links each NONSTD 
roll entry with each 
STD roll entry, compar- 
ing the induction 
coefficients. 



entries have all been 
processed or have never 
existed. Moves entries 
to next outermost loop. 

Picks a NONSTD roll entry 
with a minimum dis- 
placement and processes 
it as if it were a 
standard script. 

Utility routine to spread 
the sign of negative 
displacements. 



Processes paired STD or 
NONSTD roll entries 
with DELTA greater than 
4087 bytes. Generates 
second register and 
LOOP CONTROL entries. 

Processes paired STD or 
NONSTD roll entries 
with DELTA less than 
4087 bytes. DELTA is 
placed in each ARRAY 
REF entry in the chain. 

Controls formation of 
LOOP CONTROL and REG 
roll groups for SCRIPT 
pointer in WO. 

Forms REG roll entry for 
SCRIPT pointer in WO. 

Entry to establish loop 
control which sets up 
stamps for impending 
LOOP CONTROL group. 

Forms LOOP CONTROL group 
for SCRIPT entry in Wl. 



Processes paired STD or 
NONSTD roll entries 
with best match in 
inner coefficients. 
Forms SCRIPT entry for 
next outermost loop 
with coefficient dif- 
ferences in coefficient 
slots. 



G0136 NOTE SECOND Runs the ARRAY REF 
REG THREAD thread, removing . each 
link to provide for the 
second register. 



G0131 ESTABLISH 
REG 
STRUCTURE 



G0132 EST. REG 
GROUP 

G0133 ESTABLISH 
LOOP 
CONTROL 



G0134 EST. LOOP 
CONTROL 



G0135 FORM OUTER 
SCRIPT 
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Routine 
Label Name 
G0137 UPDATE 

FREQS 



G0138 REG SCRIPT 

EXP 



G0139 PRUNE 

SCRIPT REL 
TO PNTR 



Comments 

Sums the frequencies of 
the STD or NONSTD pair 
to indicate increased 
usage. 

Registers the STD or 
NONSTD in WO on the STD 
or NONSTD roll. 



Utility routine to remove 
SCRIPT groups. 





Chart 


Label 


ID 


G0U91 


08 


G0499 


EA 


G050U 


EB 


G0508 


EC 


G0712 


ED 


G0493 


EF 


G0515 


EG 


G0U96 


EH 



Routine Name 
START GEN 

ENTRY CODE GEN 

PROLOGUE GEN 

EPILOGUE GEN 

GET POLISH 

LBL PROCESS 

STA GEN 

STA GEN FINISH 



G01U0 NOTE ARRAY 
REF DELTA 



G01U1 REALIZE 

REGISTERS 
SWEEP 



G01U2 NOTE HI 
FREQ REG 



Adjusts the information 
indicated from the 
SCRIPT allocation ac- 
cording to the displa- 
cement to the asso- 
ciated ARRAY REF roll 
entries. 

Sweeps the REG roll, as- 
signing available reg- 
isters to the registers 
and temps, according to 
the frequency of use of 
the registers in the 
REG roll. 

Utility routine which 
notes the REG roll 
group indicating the 
highest frequency of 
use. 



SUPPLEMENTARY GEN LABEL LIST 



The routines described in this section 
are listed by G number labels which are 
presented in ascending order. These rou- 
tines are those used in the operation of 
Gen but not shown in the section pertaining 
to the phase. 



Routine 
Label Name 
G019U CLINCH 



G0U97 ZERO THE 
ACS 



Comments 
Clears the base 
table. 



register 



Clears the accumulators 
to be used. 



G0U98 MOVE ZEROS Fills the indicated 
TO T AND C number of groups on the 
TEMP AND CONST roll 
with zeros. 



G01U3 ASSIGN 

TEMPS FOR 
REGS 



Places next temp into the 
ARRAY REF run and ad- 
justs the LOOP CONTROL 
stamps to reflect temp 
usage. 



G0144 CONVERT REG Performs the actual 
TO USAGE transfer of REG or TEMP 
roll entries into the 
ARRAY REF threads. 



GEN LABEL LIST 



The labels contained in the following 
list are illustrated in the flowcharts 
provided with the description of the Gen 
phase of the compiler. 



GO 500 INSERT PROG Puts name of source 
NAME IN module on CODE roll. 
CODE 



G0501 MAIN 

PROGRAM 
ENTRY 



Builds instructions for 
the entry into the main 
program. 



GO 50 2 PRO AND EPI Determines the address 

ADCON GEN constant for prologues 

and epilogues for the 

instruction that is 

created. 

G0503 ADCON MAKER Builds ADCON roll group 
GEN and places adcon 

instruction on CODE 
roll. 



GO 505 LOAD DMYS 
GEN 



Builds the code to load 
the dummy arguments 
specified in a 
subprogram. 
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Routine 
Label Name 
GO 50 6 BUILD DMY 

ARRAY DIM 



G0507 CALCULATE 
DMY DIM 



Comments 

Determines the dummy 
array dimensions speci- 
fied in the arguments 
for the subprogram. 

Calculates the dummy 
array dimensions speci- 
fied as arguments to a 
subprogram, and builds 
the appropriate in- 
structions. 



Routine 
Label Name 
G0522 BUILD JUMP 

INST 



G0523 GO TO STA 

GEN 
G052U ASSIGN GO 

TO STA GEN 
G0525 GO TO JUMP 

GEN 



C ommen ts 
Constructs 

Ktrnpt i rrri. 



branch in- 



wi +hi 



indicating type 
branch point. 



and 



These routines control 
and construct the 
object code required to 
execute the indicated 
type of GO TO state- 
ment. 



GO 50 9 RESTORE DMY Restores the dummy argu- 
GEN ments for value trans- 

fer at the end of a 
subprogram. 



Determines whether the 
arguments to a subpro- 
gram were designated as 
call by name values. 

These routines build 
the instructions that 
transmit the indicated 
values transferred by 
the dummy arguments to 
subprogram. 



GO 510 TEST CALL 
BY NAME 



GO 511 BUILD A 

MOVE DMY 

GROUP 
GO 51 2 BUILD A 

STORE DMY 

ADD 
GO 51 3 INCREMENT 

DMY PNTR 
GO 51U BUILD A 

LOAD TWO 



G0516 ASSIGNMENT Controls the construction 
STA GEN of the code for an 
assignment statement. 



GO 51 7 AFDS STA 
GEN 



GO 518 AFDS INIT 



Controls and constructs 
the instructions for an 
arithmetic function 
definition statement. 

Initializes the construc- 
tion of the code for an 
arithmetic function 
definition statement by 
constructing the label 
and jump instructions. 



G0519 ASSIGN STA Constructs the object 
GEN code for an ASSIGN 

statement. 



G0520 IF STA GEN 



G0521 LOGICAL IF 
STA GEN 



Constructs the object 
code for an IF 
statement. 



Constructs 
code for 
statement. 



the object 
a Logical IF 



G0526 CGOTO STA These routines construct 
GEN the object code for a 

G0527 CGOTO FOR GO TO statement that is 
CALL RETURN the subprogram return. 
GEN 



GO 52 8 CONTINUE 
STA GEN 

G0529 BLOCK DATA 
GEN 



G0530 STA INIT 



G0531 DATA STA 
GEN 



Returns. 



Sets up the rolls and 
data used in the con- 
struction of the object 
code for the BLOCK DATA 
statement. 

Stores the statement 
number and leaves 
statement drives in WO. 

Determines the use and 
mode of the data 
variables and con- 
structs the object code 
based on this 
information. 



G0532 ALIGN DATA Adjusts the data for 

instruction format. 



G0533 INIT FOR 
VAR 



GO 5 34 MOVE DATA 



GO 53 5 MOVE TO 

CARD IMAGE 



Obtains the base, size, 
displacement, and area 
code of the indicated 
variable and adjusts 
the instruction format 
for the variable 
according to the infor- 
mation obtained. 

Sets up the beginning of 
the data for card 
format. 

Obtains the location of 
the indicated data for 
transfer to instruction 
format. 
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Routine 
Labe l Name 
G0536 MOVE TO 

CARD REPEAT 



Comments 

Controls the insertion of 
the data into the card 
format and the punching 
of the appropriate TXT 
card. 



G0537 PUNCH A TXT Write a TXT card from 
CARD data whose location is 

G0S38 PUNCH A TXT provided. 
CARD ML 

G0539 PUNCH TXT 
ENTRY 2 



GO 54 2 CALCULATE 
VAR SIZE 



Determines size of a 
variable from TAG field 
of pointer in WO. 



G0543 END STA GEN Builds code for AT if 

required and branches 
to TERMINATE PHASE. 



G0547 BSREF STA 
GEN 



GO 54 8 STOP PAUSE 
STA GEN 



Controls the construction 
of the object code for 
a BACKSPACE, REWIND, or 
END FILE statement. 

Constructs the object 
code for a STOP or 
PAUSE statement. 



Routine 

Label N ame 

G0556 10 STA GEN 



G0557 INIT 10 
LINK GEN 



G0558 UNIT 10 
ARG 



G0559 DIRECT 10 
ARG 



G0560 FORMAT 10 
ARG 



Comments 

Determines the type of 
input/output statement 
that is indicated and 
transfers to the rou- 
tines that process that 
particular type of 
statement. 

Initiates and sets data 
for the generation of 
the input/output link- 
age. 

Determines the logical 
unit number of the 
input/output device. 

Sets up controls for the 
construction of the 
object code for direct- 
access input/output 
statements. 

Sets up data pertaining 
to the FORMAT for the 
construction of the 
object code of an 
input/output statement 
under format control. 



G0549 LOAD IBCOM Builds an instruction for 

a call to the IBCOM 
routine. 



GO 550 RETURN STA 
GEN 

GO 551 ENTRY STA 
GEN 
SPROG 
STA GEN 



Builds the object code 
for a RETURN statement. 

Constructs the label in- 
struction for an ENTRY 
statement or the entry 
into a subprogram. 



G0552 DEFINE FILE Constructs the object 
STA GEN code instructions for 
the DEFINE FILE 
statement. 



G0553 GRNTEE A 
TEMP 



GO 5 54 ILLEGAL 
AFDS STA 
GEN 



Ensures that the constant 
from DEFINE FILE is 
registered on the TEMP 
AND CONST roll. 

Generates an error link 
for a statement func- 
tion which was invalid. 



GO 555 ILLEGAL STA Constructs a no-operation 
GEN ENTRY instruction and an 
error link for the 
statement in error. 



Sets up code for the call 
to IBCOM to control 
execution of the indi- 
cated input/output 
statement. 

Constructs argument pass- 
ed for unit number in 
input/output linkages. 

Constructs the object 
code for the arguments 
designated in the 
input/output state- 
ments. 



G0564 BUILD Constructs the object 

FORMAT ARG code for the designated 

format control of an 

input/output statement. 



G0561 10 INITIAL 
ENTRY GEN 



G0562 BUILD UNIT 
ARG 



G0563 BUILD A 
LINK ARG 



G0565 GRNTEE 10 
LINK ADD 



G0566 IOL DO 

CLOSE GEN 



G0567 10 LIST 
GEN RUN 



Constructs 
code for 
linkage. 



the object 
input /out put 



Generates object code for 
closing of implied DO 
in I/O list. 

Determines whether I/O 
list is DO implied. 
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Routine 
Labe l Name 
G0568 IOL DO 

OPEN GEN 



Comments 

Sets up the data for the 
generation of instruc- 
tions f cr iii put/ output 
DO loop. 



G0569 IOL ARRAY Generates linkage for 
GEN secondary array entry 

to IBCOM. 



Gud/u 10 LIST 
PNTR GEN 
IOL PNTR 
GEN 



G0571 IO LIST 

ARRAY PNTR 
GEN 



G0572 



BUILD 

ELEMENTS 

ARG 



Determines the type of 
the I/O list, and con- 
trols the construction 
of the object code for 
the list. 

Sets up the data and 
determines the type of 
array list. 

Builds an argument for 
input/output linkage 
for a single element in 
an I/O list. 



GO 57 3 10 LIST DMY Builds the object code 
ARRAY for a dummy array I/O 
list. 



G057U GLOBAL DMY 
TEST 



GO 57 5 10 STA END 
10 STA END 
GEN 

GO 57 6 BUILD 10 
LINK 



GO 577 LOAD 

ADDRESS 
IBCOM 

G0578 INIT IBCOM 
PNTR AND 
ENTRY 



GO 579 CALCULATE 
LENGTH AND 
TYPE 



G0580 DO STA GEN 



Determines whether the 
variable in question 
has been defined in 
usage as a global 
dummy. 

Generates call for end of 
I/O list. 



Controls construction of 
the object code to ter- 
minate an input/output 



operation. 



Inserts the absolute call 
to the system input/ 
output routine, IBCOM. 

Initializes for process- 
ing of input/output 
statements by storing 
code word and IBCOM 
pointer from POLISH 
roll. 

Determines the length and 
type of variables de- 
signated in input/ 
output statements. 

Determines the nature of 
the DO statement, sets 
up the data for the 
code of the statement. 



Routine 
Label Name 
G0581 LOOPS OPEN 

GEN 



G0582 INIZ LOOP 
GEN 



G0583 INIZ GIVEN 
COEFF GEN 



G0584 DO CLOSE 
SBR 



G0585 FIND COEFF 
INSTANCE 



G0586 NOTE TEMP 
REQ 



Comments 

Obtains the DO control 
data and controls the 
construction of the 
appropriate instruc- 
tions. 

Determines the nature of 
the indicated DO loop 
after determining 
whether a loop exists. 

Constructs the object 
code for the initiali- 
zation of the indicated 
induction variable 
coefficient. 

Constructs the object 
code for the close of a 
DO loop after setting 
up controls for the 
increment and terminal 
values of the loop 
iteration. 

Determines the existence 
of the indicated nature 
of a loop through com- 
parison of the desig- 
nated traits and 
coefficient. 

Determines whether a 
register has been 
assigned for the script 
expression in question 
or whether a temporary 
storage is required. 



G0587 INITIALIZE Generates the 
BY LOAD GEN registers to 



load of 
be used 
throughout a DO loop. 



G0588 GRNTEE TEMP Builds a store instruc- 
STORED GEN tion for the temporary 
storage used by the 
script expression. 



G0589 GRNTEE 

SOURCE REG 
LOADED 



G0590 INCR GIVEN 
COEFF GEN 



Determines the area and 
location for the regis- 
ter to be used by the 
script expression, and 
generates the load 
instruction for the 
indicated temporary 
storage. 

Determines the nature and 
use of the loop incre- 
ment and builds the 
appropriate instruc- 
tions for the execution 
of the increment. 
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Routine 
Label Name Comments 
GO 607 CALL STA Calls the routines which 

GEN build the object code 

for the CALL statement. 

G0608 FLP AND Flips POLISH roll and 
PREP VAR moves first variable to 
WORK roll. 

GO 609 EXP GEN Controls the determining 
BY MODE of the mode of the 
indicated expression. 

GO 610 EXP GEN AND Generates code for ex- 

GRNTEE AC pression on bottom of 

POLISH roll and ensures 

that result is in a 

register. 

GO 611 GRNTEE EXP Guarantees that the mode 

of the expression is 
positive. 



Label 



Routine 
Name 



G0623 DRIVER GEN 



GO 61 2 EXP GEN 



G0613 GEN RUN 



Obtains the expression 
for GEN processing. 

Determines the operation 
mode of the entity in 
question. 



G0614 NOT GEN Inverts sign indicator 
UNARY MINUS for variable on bottom 
GEN of WORK roll. 



GO 61 5 DIV GEN 



G0616 



INTEGER 
DIV GEN 



GO 61 7 SUB GEN 



G0618 ADD GEN 



G0619 MPY GEN 



Controls production of 
object code for divide 
operation. 

Generates code for inte- 
ger divide. 

Generates code for sub- 
tract operation. 

Generates code for add 
operation. 

Controls production of 
object code for multi- 
ply operation. 



G0620 INTEGER MPY Generates code for inte- 
GEN ger multiply. 

G0621 INTEGER MPY Common end for multiply 
DIV END and divide generation 
routines; records 
register usage. 

G06 22 SUM OR PROD Guarantees that one of 

GRNTEE the two elements on 

WORK roll is in a 

register and that mode 

of operator is correct. 



G062U 


AND GEN 


G0625 


AND FINISH 




GEN 


G0626 


OR GEN 


G0627 


OR FINISH 




GEN 



G0628 PREPARE FOR 
LOGICAL GEN 



G0629 EQ GEN 



G0630 NE GEN 



G0631 LT GEN 



G0632 GT GEN 



G0633 GE GEN 



G063M LE GEN 



Comments 

If an array driver, goes 
to SCRIPT PREP; if not, 
exits false indicating 
end of an expression. 

Generates code for an AND 
operation. 

Actually builds an AND 
operation on CODE roll. 

Generates code for an OR 
operation. 

Actually builds an OR 
operation on CODE roll. 

Sets up the data for the 
statement containing a 
logical operation. 

Generates code for an EQ 
relational operation. 

Generates code for an NE 
relational operation. 

Generates code for an LT 
relational operation. 

Generates code for a GT 
relational operation. 

Generates code for a GE 
relational operation. 

Generates code for an LE 
relational operation. 



G0635 RELATIONAL Builds the object code 
GEN instructions based on 

the relational condi- 
tion specified in the 
logical operation. 

G0636 PREPARE FOR Converts and adjusts data 
RELATIONAL for construction of the 
object code of a rela- 
tional comparison. 



G0637 POWER GEN Builds exponentiation 

linkage on the CODE 
roll. 



G0638 POWER AND Sets up the data for 
COMPLEX MPY operations involving 
DIV GEN multiplication or divi- 
sion of exponentiated 
or complex variables. 
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Routine 
Label Name 
G0639 INTEGER 

POWER GEN 



GQ6un spprv: r:FN 



G0641 SPROG GEN 
SUE 



G0642 SPROG END 
GEN 



G0643 SPROG ARG 
SEQ GEN 



G06UU REG SPROG 
ARG 



G06U5 GRNTEE ADR 
GEN 



G06U6 TEST CONST 
ARG 



G06U7 TEST AND 

STORE REGS 



G06U8 GRNTEE AC 
GEN 



G06U9 GRNTEE NEW 

AC GEN 
G0650 PICK A NEW 

AC 
G0651 PICK FL 

AC 
G0652 PICK A 

COMPLEX AC 



Comments 

Builds the appropriate 
load and multiply 
instructions for expo- 
nentiation depending on 
the mode of the 
operation. 



Determines the nature of 
the operand of a CALL 
statement or of a 
subprogram. 

Generates the code for a 
subprogram call includ- 
ing argument calcu- 

. lations. 

Constructs the object 
code for the return or 
close of a subprogram. 

Controls the interpreta- 
tion of the sequence of 
arguments designated to 
a subprogram. 

Controls the register 
assignment to sub- 
program arguments as 
they are encountered in 
sequence. 

Guarantees that the 
subprogram arguments 
are assigned and builds 
the indicated load and 
store instructions. 

Determines mode of a con- 
stant subprogram 
argument. 

Tests to determine if any 
register used as an 
accumulator contains 
data; if so, generates 
code to store the con- 
tents in a temporary 
location. 

Stores the contents of 
WO in an accumulator if 
not already designated. 

These routines deter- 
mine the accumulator to 
be used in an indicated 
operation depending 
upon the mode of the 
variable in question. 



Routine 
Label Name 
G0653 CLEAR A 

PAIR 
G065U PICK A 

PAIR 
G0655 PICK A 

PAIR END 



Comments 

These routines determine 
and clear a pair of 
fixed or floating ac- 
cumulators depending on 
the type of the reg- 
WO. These 
are used in 
multiply, 
and comDlex 



ister in 

routines 

integer, 

divide, 

operations. 



G0656 TEST FOR 
BEST PAIR 



GO 6 57 GRNTEE 

POSITIVE 
GEN 



G0658 COMP FX 
CONST 

G0659 COMP FL 
CONST 

G0660 COMP DP 
CONST 

G0661 COMP 

COMPLEX 
CONST 



Determines the two opti- 
mal accumulators to be 
used for the operation 
indicated * 

Sets the mode of the 
indicates accumulator 
to positive if not 
already set, and 
generates appropriate 
code. 

Set the mode of the in- 
dicated constant. 



Sets the mode of the 
indicated constant. 



G0662 CORRECT FOR Complements the value 
SIGN DATA 1 DATA1. 



Sets up table for the 
generation of code for 
in-line functions. 

Generates code to perform 
an in-line mode conver- 
sion. 

These routines generate 
the object code in- 
structions for the in- 
line function indicated 
by the name of the rou- 
tine. 



G0663 


INCLINE 




FUNCTION 




GEN 


G066U 


CONVERSION 




FUNCTION 




GEN 


G0665 


ABS 




FUNCTION 




GEN 


G0666 


MOD 




FUNCTION 




GEN 


G0667 


INT FUNC- 




TION GEN 


G0668 


AIMAG FUNC 




TION GEN 


G0669 


CMPLEX 




FUNCTION 




GEN 


G0670 


TWO ARG 




INLINE 




COMMON 


G0671 


CONJG FUNC 




TION GEN 
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Routine 
Label Name 
G0672 SIGN FUNCT 

GEN 
G0673 DIM FUNCT 

GEN 

G0674 GRNTEE 

BOTH MODES 



G0675 GRNTEE 
MODE Wl 



Com ments 

(see Label G0665) 



Sets the mode of the data 
in WO and Wi to posi- 
tive if not already 
set. 

Determines the mode of 
the variable in Wl and 
transfers to the appro- 
priate conversion rou- 
tine depending on the 
mode of WO. 



Label 



Routine 
Name 



G0682 TEST DP 
CONST 



G0683 COMPLEX 

CONVERSION 



G068U DP COMPLEX 
CONVERSION 



Comments 

Exits false if pointer in 
WO is not to a doubje- 
precision constant; 
otherwise, loads con- 
stant into central area 
and exits true. 

Determines the mode and 
nature of the two com- 
ponents of the complex 
variable or constant. 

Determines the mode and 
registers the indicated 
double- precis ion com- 
plex variable or 
constant. 



G0676 LOGICAL- 
CONVERSION 



G0677 FX 

CONVERSION 



G0678 FL 

CONVERSION 



GO 679 CONVERT TO 
COMPLEX 
END 



G0680 TEST A FL 
CONST 



G0681 DP 

CONVERSION 



Places the logical vari- 
able contained in WO 
into an accumulator. 

Places the variables con- 
tained in WO and Wl in 
an accumulator if the 
mode is 1*2; otherwise, 
a conversion to float- 
ing point is made. 

Tests the contents of WO 
and Wl for floating 
variables ■:,.- < >.nstants. 
11 the contents are not 
floating variables or 
constants, it deter- 
mines the nature of the 
data, registers the 
variable or constant, 
and assigns an accumu- 
lator for the oper- 
ation. 

Generates code to clear 
the imaginary register 
and loads the real 
register in real to 
complex conversion. 

Exits false if pointer in 
WO is not to a floating 
constant; otherwise, it 
loads the constant into 
central area and exits 
true. 

Determines the nature of 
the double-precision 
variable or constant 
indicated, converts 
into the indicated for- 
mat, assigns an accumu- 
lator, depending on the 
mode of the variable. 



G0685 COMPLEX 
AC TEST 



Sets up FL AC roll for 
proper pointers to a 



value converted 
complex. 



to 



G0686 AC END AND Used during conversion, 

CONV RETEST to set up AC roll, and 

to determine whether 

conversion is complete. 



G0687 CONVERT 
RETEST 



G0688 REGISTER 

WORK CONST 



Sets up WORK roll so that 
GRNTEE MODE Wl can 
determine whether a 
conversion is complete. 

Records constant in WO as 
an integer constant. 



G0689 REGISTER FX Register the constant 

from DATA area on the 
indicated roll if not 
already defined; con- 
stant is compiler gen- 
erated. 



CONST 
G0690 REGISTER FL 

CONST 
G0691 REGISTER DP 

CONST 
G0692 REGISTER 

COMPLEX CONST 
G0693 REGISTER DO 

COMPLEX CONST 



G0695 FLOAT A FX 



G0696 FIX A FL 



G0697 FLOAT AND 
FIX COMMON 



G0708 TEST AC 
AC TEST 



Converts a floating con- 
stant or generates code 
to convert a floating 
variable to fixed mode. 

Converts a fixed mode 
constant or generates 
code to convert a fixed 
variable to floating 
mode. 

Common exit for routines 
which write code to 
float or fix variables. 

Determines whether the 
mode of the indicated 
accumulator is fixed or 
floating. 
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Routine 
Label Name 
G0709 AC END 



GO 710 GRNTEE AC 
ZERO 



G0711 SPOIL STO 
REG 



Comments 

Determines whether one or 
two accumulators are 



Assures that the accumu- 
lator being used in the 
operation is register 
zero. 

Clears appropriate entry 
on AC roll for a 
register which has been 
stored. 



Routine 
Label Name 



Comments 



G0713 CLEAR THREE Remove indicated number 



aNd £.Ali 

TRUE 
GO 714 CLEAR TWO 

AND EXIT 

TRUE 
G0715 CLEAR ONE 

AND EXIT 

TRUE 

G0716 EXIT TRUE 
EXIT TRUE 

ML 



of groups from WORK 
roll, set ANSWER BOX to 
true, and return. 



Sets ANSWER BOX to true 
and returns. 



G0718 CLEAR THREE Remove indicated number 



G0719 



G0720 



AND EXIT 
FALSE 
CLEAR TWO 
AND EXIT 
FALSE 
CLEAR ONE 
AND EXIT 
FALSE 



of groups from WORK 
roll, set ANSWER BOX to 
false, and return. 



G0730 ADCON MADE Builds ADCON roll and 
LBL MAKER returns a pointer to 
the start of a group on 
the roll. 



G0731 CHECK JUMP 
LBL 



GOV 3 2 MADE LBL 
MAKER 



Determines whether point- 
er in WO refers to a 
jump target label. 

Creates entry on BRANCH 
TABLE roll for made 
label, and returns 
pointer to group 
created. 



G0733 SCRIPT PREP Sets up the data for the 

calculation of the 

indicated script ex- 
pression. 



G073U CALCULATE 
SCRIPT 



G0735 TEST END 
SCRIPT 

G0736 CALCULATE 
OFFSET AND 
SIZE 



G0737 GRNTEE REG 

9 
G0738 TEST AND 

STORE REG 9 



Determines the mode and 
operation of the vari- 
ables contained in the 
script expression. 

Determines the end of the 
script expression. 

Determines the size of 
each element contained 
within an expression, 
and the displacement 
pertaining to each 
array. 

Place the index values 
for arrays in register 
9 if not already set. 



G0721 EXIT FALSE 
EXIT FALSE 
ML 



Sets ANSWER BOX to false 
and returns. 



G0723 CLEAR THREE Remove indicated 



EXIT 

CLEAR THREE 

AND EXIT 

G072U CLEAR TWO 
EXIT 

CLEAR TWO 
AND EXIT 

G0725 CLEAR ONE 
EXIT 

CLEAR ONE 
AND EXIT 

G0727 EXIT 

EXIT ML 



of groups from 
roll and return. 



number 
WORK 



Returns, 



G0728 EXIT ANSWER Sets ANSWER BOX and exits 
ML for EXIT routines which 

set ANSWER BOX. 



G0739 BUILD A 
SHIFT 9 



G07U4 BID INIT 
G07U5 BIM INIT 
G0746 BIM BID 

INIT 
G07U7 

G07M8 EXIT FULL 



BID 
BIDPOP 



Builds a suxit register y 
instruction for sub- 
scripting; shift length 
is determined by array 
element size. 

Initializes data for the 
contsruction of the in- 
struction designated by 
the BID, BIN, or BIM 
POP instructions. 

Used on entry to BIN when 
BIN fills the EXIT 
roll. 

This is the assembler 
language routine which 
constructs the instruc- 
tion designated by the 
BIDPOP instruction. 
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Routine 
Label Name 
G0750 BIN 

BINPOP 



G0751 NOTE A 
CSECT 



G0752 BIM 

BIMPOP 



G0753 RX FORMAT 



G075<4 RR FORMAT 



G0755 ADDRESS 
MAKER 



G0756 BUILD A 
BASE REG 



G0757 SCALAR 

OPERAND 

ARRAY 

OPERAND 

GLOBAL 
SPROG 
OPERAND 

USED FUNC- 
TION LIB 
OPERAND 

NAMES LIST 
OPERAND 

FORMAT LBL 
OPERAND 

GLOBAL DMY 
OPERAND 

G0758 DMY LBL 
COMMON 



Comments 

This is the assembler 
language routine which 
constructs the instruc- 
tion designated by the 
BINPOP instruction. 

This routine obtains the 
Control section in 
which the current 
instruction being gen- 
erated is to be placed. 

This is the assembler 
language routine which 
constructs the instruc- 
tion designated by the 
BIMPOP instruction. 

General routine used to 
build all RX type 
instructions. 

This routine implements 
the RR format designa- 
tion for the instruc- 
tion being generated. 

Used to build all base, 
displacement, and index 
type addresses. 

Determines the base loca- 
tion within a particu- 
lar control section at 
which the object code 
instructions begin. 

Builds address for the 
specified type of oper- 
and. 



Generates address 
FOMAT references. 



for 



Routine 

Label Name 

G0760 SPROG ARG 

OPERAND 



G0761 BRANCH 
TABLE 
OPERAND 

G0762 BRANCH 
TABLE 
COMMON 



G0763 BRANCH 
SPROG 
COMMON 

G076U T AND C 
OPERAND 



G0765 T AND C 
COMMON 



G0766 T AND C B 
COMMON 



G0767 LOCAL DMY 
OPERAND 



G0768 FX CONST 
OPERAND 



Oments 

Builds address for refer- 
ence to subprogram 
argument list. 

Builds address for refer- 
ences to made labels. 



Used by LBL and BRANCH 
TABLE OPERAND routines 
to cont struct address. 



Used by LBL, BRANCH TABLE 
and SPROG ARG OPERAND 
to construct address. 

Constructs address for 
references to temporary 
storage or constants. 

Used for T AND C OPERAND 
and pointers to con- 
stant rolls. 

Common exit for all 
branch and temporary 
and constant operand 
routines. 

Determines the base loca- 
tion for the indicated 
operand and builds the 
code data from this 
information. 

Determines the size of 
the fixed constant 
operand and constructs 
the instruction depend- 
ing upon this infor- 
mation. 



G0769 FX FL CONST Moves single-precisi n 
SEARCH AND constant pointed to 
REG TEMP AND CONST roll if 

FL CONST not already on roll. 
OPERAND 

G0770 FX FL CONST Performs part of move of 
COMMON constant to TEMP AND 
CONST roll. 

G0771 SEARCH AND Searches TEMP AND CONST 



G0759 LBL OPERAND Builds address for refer- 
LOCAL SPROG ences to labels and 
OPERAND statement functions. 



REG SP 
CONST 

SEARCH AND 
REG FX 
CONST 

SEARCH AND 
REG FL 
CONST 



roll, registers con- 
stant if not already 
there, and returns 
pointer to TEMP AND 
CONST roll group. 
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Routine 

Label Name 

G0772 REG SP 



\_VJlNO i. 



Co m ments 
Registers 

AMD CONST roll 



single-preci- 

r-. TTMB 



G0773 DP FL CONST Construct address for 
OPERAND references to double- 
COMPLEX precision real and 
CONST single-precision com- 
OPERAND piex constants. 

G077H SEARCH AND Ensures that a double- 



REG DP CONST precision 



real 



or 



SEARCH AND 
REG COMPLEX 
CONST 



G0775 REG DP 
CONST 



G077b DP COMPLEX 
CONST 
OPERAND 



G0777 SEARCH AND 
REG DP 
COMPLEX 
CONST 



GO 77 8 REG DP 
COMPLEX 
CONST 



single-precision com- 
plex constant is on the 
TEMP AND XONST roll and 
returns a pointer to 
it. 

Registers a new double- 
precision constant on 
the TEMP AND CONST 
roll. 

Constructs address for 
reference to a double- 
precision complex con- 
stant. 

Ensures that a double- 
precision complex con- 
stant is on the TEMP 
AND CONST roll and 
returns a pointer to 
it. 

Registers a new double- 
precision complex con- 
stant on the TEMP AND 
CONST roll. 



G077 9 TEST DOUBLE Determines if the address 
WORD designated to the vari- 

BOUNDARY able or constant in WO 

oegins on a doubleword 

boundary. 



G0780 ARRAY REF 
OPERAND 



G0781 LOAD REG 
FROM TEMP 



Handles array reference 
pointers to obtain 
scripted arrays ad- 
dresses. 

Generates a load of a 
base register from a 
temporary storage loca- 
tion. 



G0782 ARRAY PLEX Handles building address- 

OPERAND es when array plex is 

the indicated operand. 

G0783 SRCH AND ST Stores register 9 in a 
X9 FROM temporary register if 
ARRAY PLEX needed for generation 
of array plex address- 
es. 



Routine 
Label Name 
G0784 STORE IN 

TT?MT> 



G0785 STORE AND 
RETURN 
TEMP 



G0786 SEARCH 

TTTNIP ROT.T. 



Comments 

Generates code to store 
that register in a tem- 
porary location if WO 
is a pointer to a 
register. 

Uses a temporary location 
in checking temporary 
pointers for the indi- 
cated constants. 

Beginning with a pointer 
to the TEMP PNTR roll 
in W0 f searches for an 
available temporary al- 
ready defined. Returns 
true, with pointer to 
TEMP AND CONST roll if 
found; otherwise, re- 
turns false. 



G0787 OPERAND RUN Selects processing rou- 
tine for present 
operand from pointer. 



G0930 SPOIL STO 
VAR 

SPOIL STORE 
VAR 



Determines whether point- 
ed to variable is being 
used in subscript which 
is now contained in 
register 8 or 9; if so, 
spoils that register. 



G09 31 SPOIL STORE Determines whether a 

VAR NON stored variable which 

READ 10 has not appeared in a 

READ should be stored. 



G0932 CLEAR ONE 
AND SPOIL 
CEAD 



Determines if pointed to 
variable is COMMON, 
EQUIVALENCE, alterable, 
or dummy; if so, spoils 
any register containing 
a subscript which uses 
any CEAD variable; and 
prunes one group from 
WORK. 



G0933 SPOIL CEAD Same as CLEAR ONE AND 

SPOIL CEAD except it 

does not prune WORK 
roll. 

G093U TEST A CEAD Tests to determine if 

variable pointed to by 
WO is COMMON, EQUIVA- 
LENCE, alterable, or 
dummy. 



G0935 NO ARG 

SPROG END 
GEN 



Entry point for generat- 
ing a subprogram call 
without arguments. 
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Comments 



Routine 

Labe l Name 

G0937 SIMPLE Builds ARRAY PLEX roll 

SCRIPT PREP for subscripts handled 
in registers 8 and 9. 



G0938 CLEAR 3 
EXIT BIN 

G0939 CLEAR 1 
EXIT BIN 



G09U0 EXIT BIN 



Exits from BIN, BIM and 
BID POP subroutines 
which remove the indi- 
cated number of groups 
from WORK. 

Exits from BIN, BIM, and 
BID POP subroutines. 



GO 9 41 SUBCHK GEN Builds code for SUBCHK 

entry if required. 



Routine 
Label Names 
G0953 BIN 

VARIABLE 

NAME 

G0954 RETURN 

SCALAR OR 
ARRAY PNTR 



Comments 
Puts name of 
CODE roll. 



variable on 



Returns pointer to a 
SCALAR or ARRAY roll 
group from less direct 
reference. 



G0955 DEBUG INIT Generates DEBUG linkage 
GEN for INIT variables. 

G0956 DEBUG SHORT Generates DEBUG linkage 
LIST INIT for INIT of a full ar- 
GEN ray. 



G09U2 SIMPLE 
SCRIPT 
OPERAND 



G0943 TEST FOR 
HIT 



Generates the code to 
compute a subscript 
value to be held in 
register 8 or 9. 



Determines whether reg- 
ister 8 or 9 already 
contains the present 
subscript. 



GO 9 57 DEBUG DMY 
INIT GEN 



Generates DEBUG linkage 
for INIT of a dummy 
variable. 



G0958 DISPLAY STA Generates DEBUG linkage 
GEN for a DISPLAY 

statement. 



G0959 DEBUG INIT 
ARG GEN 



Generates DEBUG calls 
after a CALL statement. 



G094U LOAD 

SIMPLE X 
REG 



Generates code to set up 
register 8 or 9. 



EXIT LABEL LIST 



G09U5 PICK A NEW Determines whether regis- 
SIMPLE X ter 8 or 9 will be used 
REG for subscript which 

must be loaded. 



The labels enumerated in the following 
list are used in the flowcharts provided 
for the illustration of the major routines 
used by Exit. 



G0946 CALC ELEM Calculates array element 
SIZE AND size and the length of 
SHIFT shift necessary to mul- 
tiply by that value. 



G09U7 AT STA GEN 

G09U8 TRACE ON 
STA GEN 



Generates the object code 
for an AT statement. 

Generates DEBUG linkage 
for a TRACE ON 
statement. 



G0949 TRACE OFF Generates DEBUG linkage 
STA GEN for a TRACE OFF 
statement. 





Chart 






Label 


ID 


Routine Name 


G0381 


09 


EXIT PASS 


G0382 


FA 


PUNCH 


TEMP AND CONST ROLL 


G0383 


FB 


PUNCH 


ADR CONST ROLL 


G0384 


FC 


PUNCH 


CODE ROLL 


G0399 


FD 


PUNCH 


BASE ROLL 


G0400 


FE 


PUNCH 


BRANCH ROLL 


G0U02 


FF 


PUNCH 


SPROG ARG ROLL 


G0U03 


FG 


PUNCH 


GLOBAL SPROG ROLL 


G040M 


FH 


PUNCH 


USED LIBRARY ROLL 


G0405 


FI 


PUNCH 


ADCON ROLL 


G0U16 


FJ 


PUNCH 


RLD ROLL 


G042U 


FK 


PUNCH 


END CARD 


G056U 


FL 


PUNCH 


NAMELIST MPY DATA 



G0950 DEBUG Generates initial linkage 
INITIAL to DEBUG. 
LINKAGE GEN 



SUPPLEMENTARY EXIT LABEL LIST 



G0951 



G0952 



DEBUG VAR 
ADR GEN 



DEBUG 

ELEMENTS 

GEN 



Generates address for 
INIT or SUBCHK 
variable. 

Generates number of ele- 
ments for DEBUG link- 
age. 



The routines described in this section 
are listed by G number labels which are 
presented in ascending order. These rou- 
tines are those used in the operation of 
Exit which are not shown in the section of 
flowcharts for the phase. 
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Routine 

Labe l Name 

GO 38 5 SWEEP CODE 

ROLL 

SWEEP CODE 

ROLL ML 



Com ments 

Determines the nature of 

and processes it ac- 
cording to type. 



G0386 PUNCH INST Determines the type of 

PUNCH INST instruction to be 

ML punched (one, two, or 

three halfwords). 



GO 38 8 PUNCH TWO 
HALFWORDS 



GO 38 9 PUNCH ONE 
HALFWORD 



G0390 PUNCH 
THREE 
HALFWORDS 



Sets u n a two half word 
instruction format. 



Sets up a one half word 
instruction format. 



Sets up a three halfword 
instruction format. 



G0391 PUNCH CODE Punches the indicated 

instruction in the 
indicated format. 

G0392 ABS PUNCH Sets up for the punching 

of object module abso- 
lute constants. 



GO 39 3 RELOC 
CONST 
PUNCH 



Sets the format for the 
punching of a relocat- 
able absolute constant. 



Routine 

Label Name Comments 

G0409 MOVE CODE Transfers the indicated 

to be punched. 

G0U10 INITIALIZE Initializes the format 
TXT CARD for the punching of the 

G0411 INITIALIZE TXT cards. 
TXT CARD ML 

GC412 PUNCH Punches any part of a IXT 
PARTIAL card. 
TEXT CARD 



G0U13 PUNCH A 
CARD ML 

G0K14 PUNCH AN 
ESD CARD 



G0U17 DEPOSIT 
LAST FSD 
NO. ON 
RLD CARD 

G0M18 DB SECOND 
RLD WORD 
WITH CONT 



G0M19 DB SECOND 
RLD WORD 
WITH NO 
CONT 



Punches 
card. 



a complete TXT 



Sets the format for the 
punching cf an ESD 
card. 

Obtains and deposits the 
last ESD number on the 
indicated RLD card for 
punching. 

Sets the format of a card 
with a continuation to 
a second card. 



Turns off the continua- 
tion indicator for the 
punching of the RLD 
card. 



G03914 ABS CONST 
PUNCH 
ABS CONST 
PUNCH ML 

G0396 DEFINE LBL 



G0397 ADCON 
PUNCH 

GO 39 8 POC DATA 
PUNCH 



GOU01 SWEEP BASE 
BRANCH 
ROLL 



G0U06 HALF WO"D 
WO TO TXT 
CARD 

G0407 WO TO TXT 
CARD 

WO TO TXT 
CARD ML 



Punches the indicated ab- 
solute constants in 
the object module. 



Defines indicated label 
on BRANCH TABLE roll. 

Punches the address con- 
stant indicated in WO. 

Sets up the information 
needed for the listing 
and punching of code 
contained on the CODE 
roll. 

Initializes for the 
punching of the groups 
contained on the BASE 
and BRANCH TABLE rolls. 

A halfword instruction 
format is set up for 
the contents of WO. 

Transfers the contents of 
WO to the output area 
to be punched. 



GO'120 DB SECOND 
RLD WORD 



G0421 DEPOSIT 
WORD ON 
RLD CARD 



G0U22 PUNCH AN 
RLD CARD 



G0423 TERMINATE 
RLD 
PUNCHING 



G0U25 LIST CODE 



G0U26 RS OR SI 
FORMAT 



Places the second word 
into the RLD format in 
the output area. 

Places the indicated word 
into the appropriate 
location in the RLD 
format. 

Punches the indicated RLD 
card. 



Determines whether the 
RLD card is full and 
sets controls accord- 
ingly. 

Sets up the format for 
the object module list- 
ing, and determines the 
instruction format for 
each indicated instruc- 
tion to be printed. 



Determines whether the 
indicated instruction 
is RS or SI format. 
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Routine 

Labe l Name 

G0U27 RS FORMAT 



G0U28 SI FORMAT 



G0M29 RX FORMAT 



G0430 RR FORMAT 



G0U31 SS FORMAT 



G0M32 ADCON LIST 



Comme nts 

Sets up the RS format for 
the indicated instruc- 
tion. 

Sets up the SI format for 
the indicated instruc- 
tion. 

Sets up the RX format for 
the indicated instruc- 
tion. 



Sets up the RR format for 
the indicated instruc- 
tion. 



Sets up the SS format for 
the indicated instruc- 
tion. 



Sets up the format (DC 
format) for the address 
constants in the object 
module that are to be 
listed. 



Routine 
Label Name 
G0UU3 PRINT 

HEADING 

PRINT 

HEADING 

ML 

G04UU PRINT 

COMPILER 
STATISTICS 



Comments 

Prints the indicated 
heading that is to 
appear on the object 
module listing. 



Sets up the indicated 
message in the print 
output area. . 



G0UU5 PRINT CSECT Sets up the indicated 
MEMORY message in the print 
REQMTS output area. 
MESS 



G0UU6 PRINT 
CSECT 
TOTAL 
MESSAGE ML 

G0U47 PRINT 
CSECT 
MESSAGE 

G0UU8 CONV AND 
PRINT 
D2(B2) ML 



Sets up the indicated 
message in the print 
output area. 



Sets up the indicated 
message in the print 
output area. 

Converts the indicated 
general register desig- 
nation for the RX, RS, 
and RR formats. 



G0U33 DC LIST 



G0U3U PRINT 
ADCON 
LBL 



G0435 PRINT A 
MADE LBL 



G0U36 MADE LBL 
ADCON LBL 
COMMON 

G0U37 PRINT A 
LBL 



G0U38 PRINT BCD 
OPERAND 



G0439 PRINT A 
LINE 
PRINT A 
LINE PLUS 
ONE ML 

GOUOO PRINT A 
LINE ML 



Lists DC constants. 



Sets controls for the 
printing of the indi- 
cated address constant. 



Sets controls for the 
printing of the indi- 
cated label that has 
been created by the 
compiler. 

Inserts the indicated 
label into the print 
output area. 

Prints the indicated 

label on the object 
module listing. 

Inserts the indicated op- 
erand into the appro- 
priate position of the 
object listing in the 
output area. 

Print the indicated line 
once a full line has 
been set up in the out- 
put area. 



G0UU9 CONV AND 
PRINT 
D1B1 ML 



Converts the indicated 
address and general 
register designation 
for the SI and SS 
formats. 



G0U50 CONV AND Converts the indicated 
PRINT D2 ML address and general 
CONV AND register designations 
PRINT Dl ML to instruction format. 

G0M52 CONV AND Converts the indicated 
PRINT Bl ML address and general 
CONV AND register designations 
PRINT B2 ML to instruction format. 

G0M53 CONV AND Converts the indicated 
PRINT R2 ML address and general 
CONV AND register designations 
PRINT X2 ML to instruction format. 

G0U5U CONV AND Converts the indicated 

PRINT 12 ML address and general 

register designations 

to instruction format. 

G0U55 CONV AND Converts the indicated 
PRINT Rl ML address and general 
CONV AND register designations 
PRINT LI ML to instruction format. 

G0U56 CONV WO AND Converts the contents of 
PRINT WO to decimal and in- 
CONVERT WO serts into print output 
AND PRINT area. 
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Routine 
Label Name 
GO 4 58 CONV AND 

nnTMir r»T rtr> 
i. rvxn .L riiuo 



G0459 



ONE ML 

PRINT A 

COMMA ML 



G0U60 PRINT A 

LEFT PAREN 
ML 



G0U61 



G0U62 



G0U6U 



PRINT A 
RIGHT PAREN 

ML 

PRINT A 
CHAR ML 



CLEAR ONE 
EXIT 

CLEAR ONE 
AND EXIT 



Comments 

Converts a number to dec- 

xiiiai aliu piaCcS in 

print buffer. 

Places a comma into print 
output area. 

Places a left parenthesis 
into the print output 
area. 

Places right paren- 
thesis into the print 
output area. 

Places the indicated 
character into the 
print output area. 

Prunes one word from the 
WORJK roll and exits. 



Routine 
Label Name 
G0U65 EXIT 

EXIT ML 

EXIT 

ANSWER ML 

G0566 RLD ALIGN 
SWEEP TE 



G0567 RLD ALIGN 
TEST 
SWEEP TEST 



GO 56 9 GET ADR 

FROM PNTR 
ML 



Comments 

Obtains the last entry on 
the EXIT roll and 
transfers to the indi- 
cated location. 

Sorts RLD entries so that 
all RLDs in one CSECT 
appear together. 



Determines whether pres- 
ent RLD is in the 
CSECT now being con- 
structed. 

Gets location on DATA VAR 
roll from pointer in 
WO. 
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APPENDIX F: OBJECT-TIME LIBRARY SUBPROGRAMS 



This appendix describes the logic of the 
FORTRAN IV library subprograms. As the 
compiler examines the user's FORTRAN source 
statements and translates them into an 
object module, it recognizes the need for 
certain operations the library is designed 
to perform. At the corresponding points in 
the object module, the compiler inserts 
calls to the appropriate library subpro- 
grams. At linkage edit time, copies of 
these library subprograms are made part of 
the load module. Then, at execution time, 
the library subprograms perform their 
various functions. The nature of the 
user' s program determines which and how 
many library subprograms are included in 
his load module. 



LIBRARY FUNCTIONS 



SYSTEM GENERATION OPTIONS 



At system generation time, the user 
makes several choices which determine the 
exact makeup of his FORTRAN IV library. 
These concern: 



BOUNDARY ALIGNMEN T OP TION : If this option 
is selected, the IHCADJST routine is 
included (as a member of the link library). 
When specification interrupts occur, this 
routine is loaded to attempt correction of 
object program data misalignment. 



EXTENDED ERROR HANDLING OPTION: 



option is selected, expanded 

some library routines are included. 

provide: 



If this 

versions of 
These 



The library performs a variety of func- 
tions, which are of five general types: 

• load module initialization and termina- 
tion activities 

• input/output operations 

• error handling 

• data conversion 

• mathematical and service functions 

It is an important library responsibility 
to form an interface between the load 
module and the operating system: library 
subprograms interface with the data manage- 
ment access methods, provide exit routines 
for the system interrupt handler and 
abnormal termination processor, and call 
the supervisor for various services. 



COMPOSITION OF THE LIBRARY 



The precise composition and size of a 
user's version of the FORTRAN IV library 
will depend on what options he chose at 
system generation time. The actual loca- 
tion of his permanent library copy (the 
partitioned data set SYS1. FORTLIB) is also 
dependent on his installation choice. 

A few subprograms, commonly thought of 
as FORTRAN IV library members, and dis- 
cussed in this appendix, are not actually 
members of SYS1. FORTLIB. Instead, they 
reside in the link library, to be loaded if 
needed by true library routines at execu- 
tion time. 



more precise error messages 

in some cases, more extensive library 

corrective action and continued 

execution 

the ability for the user to choose his 

own or the library's corrective action 



The library modules affected by this option 
are listed in Table 9. A user's library 
will include either one set of modules or 
the other. 



Table 9. Routines Affected by 
Error Handling Option 



Extended 









| Without | 




With 


| Extended | 




Extended 


| Error Handling | 


Error Handling 








r ~ ~t 






| IHCFCOMH | 




IHCECOMH 


| IHCUOPT* | 




IHCUOPT* 


| IHCDIOSE | 




IHCEDIOS 


| IHCFIOSH | 




IHCEFIOS 


| IHCFINTH | 




IHCEFNTH 


| IHCTRCH** | 




IHCETRCH 


1 — 1 




IHCERRM*** 


1 — 1 




IHCFOPT 








t " " 

| *The size differs, 


although not the 


| name. 






| **With Extended Error Handling, ICHTRCH 


| becomes an entry point 


in IHCETRCH. 


(♦♦♦Without Extended Error 


Handling, 


| IHCERRM is an entry 


point in IHCTRCH. 
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One other module is affected by system 
generation choice = IHCUATBL, the data set 
reference table, has both' its length and 
some contents determined at this time. 



MODULE SUMMARIES 



inv.ti\iM'i; 



IHCTRCH 

the library error handling routine 
when extended error handling has not 
been specified. It is called by other 
library routines to direct message 
printing and produce traceback maps. 



I HCFCOMH/ IHCECOMH 

This module (with its CSECT extension 
IHCC0MH2) handles the load module 
initialization and termination activi- 
<-i6S| 3iiu sequential snu aircct access 
input/output operations. It also con- 
tains switches, addresses, and save 
areas (at constant displacements from 
its entry point IBCOM#) that are used 
by other library routines. 

IHCNAMEL 

This module directs NAMELIST read/ 
write operations (entry point FRDNL* 
for reads, entry point FWRNL* for 
writes). 

IHCFIOSH/IHCEFIOS 

This module interfaces with the basic 
sequential access methods to do all 
sequential input/output for the load 
module. It is called (at entry point 
FIOCS#) by IHCFCOMH/IHCECOMH and 
IHCNAMEL to perform user- requested 
read/write and device manipulation 
operations, and by other library rou- 
tines (such as IHCERRM, IHCFDUMP , 
and IHCDBUG) to write error mes- 
ages , traceback maps, user-requested 
dumps, debug information, etc. 

IHCDIOSE/IHCEDIOS 

This module interfaces with the basic 
direct access methods to do all direct 
access input/output for the load 
module. It is called by the compiler- 
generated code (at entry point DIOCS#) 
for DEFINE FILE statements, and by 
IHCFCOMH/IHCECOMH (at entry point 
IBCENTRY) for READ, WRITE, and FIND. 

IHCFCVTH 

This module does data conversion 
required by other library routines. 
It is called (at entry point ADCONtt) 
for formatted and namelist input/ 
output, and for other library opera- 
tions (such as traceback) that require 
EBCDIC output. 

IHCIBERH 

This module is called by the compiler- 
generated code (at entry point IBERH#> 
to terminate load module execution due 
to source statement error. 



IHCETRCH 

This module produces traceback maps 
when the extended error handling faci- 
lity is present. It can be called b" 
the error monitor IHCERRM (at entry 
point IHCTRCH) , 01 by the compiler- 
generated code (at entry point ERRTRA) 
at user request. 



IHCERRM 

This module is the error monitor when 
extended error handling has been spec- 
ified (otherwise, it is an entry point 
in IHCTRCH). It can be called by 
other library routines detecting 
errors (at CSECT name IHCERRM), by 
IHCFCOMH/IHCECOMH for termination 
error summary (entry point IHCERRE), 
and by the compiler-generated code at 
user request (entry point ERRMON) for 
handlinq of user-detected errors. 
IHCERRM directs its error handling 
activities according to the entries in 
the option table, IHCUOPT. 

IHCUOPT 

This module is. the option table. In 
addition to a preface, it contains one 
entry for each library-defined and 
user-defined error condition. These 
entries are used by the error monitor 
IHCERRM to direct its handling of 
errors. 

IHCFOPT 

This module satisfies user requests to 
examine and modify the option table 
IHCUOPT. It is called at entry points 
ERRSAV, ERRSTR, and ERRSET by the 
compiler-generated code. 

IHCFINTH/IHCEFNTH 

This module handles certain program 
interrupts. It is called by the sys- 
tem interrupt handler at entry point 
ARITH#. 

IHCADJST 

This module, which is included in the 
link library only if the user 
requested boundary alignment at system 
generation time, is loaded by 
IHCFINTH/IHCEFNTH to attempt correc- 
tion of data misalignment that has 
caused a specification interrupt. 
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IHCSTAE 

This module, which resides in the link 
library, is the STAE abnormal termina- 
tion processor. When IHCFCOMH/ 
IHCECOMH receives control (at entry 
point EXITRTN1) from the system 
because the load module has been sche- 
duled for abnormal termination, it 
loads IHCSTAE to attempt completion of 
outstanding input/output requests 
before execution ends. 

IHCUATBL 

This module is the unit assignment 
table. It contains information about 
the user's data set references, and is 
used by the library input/output rou- 
tines in their operations. 

IHCFDVCH 

This module is called by the compiler- 
generated code (entry point DVCHK) at 
user request to determine if a divide 
check interrupt occurred. 



IHCFDUMP 

This module is called by the compiler- 
generated code (entry joints DUNP, 
PDUMP) at user request to produce a 
dump of specified areas of main 
storage. 

IHCDBUG 

This module is called by the compiler- 
generated code (entry point DEBUGS) to 
direct the production of user- 
requested debugging information. 



MATHEMATICAL ROUTINES: Information on 

these library modules can be found in the 
publication IBM System/360 Operating Sys- 
tem: FORTRAN IV Library- — Mathematical and 
Service Subprograms , Order No. GC28-6818. 



LIBRARY INTERRELATIONSHIPS 



IHCFOVER 

This module is called by the compiler- 
generated code (entry point OVERFL) at 
user request to determine whether or 
not overflow or underflow interrupts 
occurred. 

IHCFSLIT 

This module is called by the compiler- 
generated code (entry points, SLITE, 
SLITET) at user request to set or test 
private switches ("pseudo-sense 
lights"). 

IHCFEXIT 

This module is called by the compiler- 
generated code (entry point EXIT) at 
user request to terminate load module 
execution. 



It is helpful to recognize that there is 
not always a one-to-one relationship 
between library functions and library 
modules. Some functions require the execu- 
tion of several modules, and, conversely, 
some modules are involved with more than 
one function. 

Certain library modules are called pri- 
marily by the compiler-generated code, but 
a large number are called only, by other 
library modules or by the system. This 
relationship is illustrated in Figure 16. 

In interfacing with each other, with the 
system and with the compiler-generated 
code, library modules use nonsta ndard call- 
ing and register-saving procedures. 
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LiDrsry routines 
entered initi^'ly 
from compiler- 
generated code 

IHCDBUG 

IHCFDUMP 

IHCFDVCH 

IHCFEXIT 

IHCFOPT 

IH'CFOVEfl 

IHCFSLIT 

IHCIBERH 

IHCNAMEL 



Library routines 
entered only 
from other 
library routines 
or the system 

IHCADJST 

IHCFCVTH 

IHCFINTH/ 
IHCEFNTH 

IHCFIOSH/ 
IHCEFIOS 

IHCSTAE 

IHCTRCH 

IHCUATBL 

IHCUOPT 



Library routines that fall into both 
categories, being entered sometimes 
from the compiler generated code, and 
sometimes from other library routines 
or the operating system 



IHCFCOMH/IHCECOMH 
IHCDIOSE/IHCEDIOS 
IHCETRCH 
IHCERRM 
Mathematical routines 



Figure 16. Calling Paths for Library Routines 



INITIALIZATION 



The library is responsible for the load 
module's initialization activities. Fvery 
compiler-generated main program begins with 
a branch to the IBFINT section of IHCFCOMH/ 
1HCECOMH. This library routine performs 
the following initialization procedure: 

• Saves the load module entry point in 
its location MAINEP, and the main pro- 
gram's save area pointer in its loca- 
tion REG13. 



Issues a SPIE macro instruction speci- 
fying library control for program 
interrupts 9, 11, 12, 13, 15, and, if 
boundary alignment was selected at sys- 
tem generation time, 6. 



Issuer, a GTAE macro instruction speci- 
fying library control if the system 
schedules the load module for abnormal 
termination. 



• Calls IHCFIOSH/IHCEFIOS 
object error unit. 



to open the 
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control is then returned to the main pro- 
gram, which begins its processing. 



INPUT/OUTPUT OPERATIONS 



Processing FORTRAN input/output requests 
is mainly the responsibility of the 
library. For each request, the compiler 
sets up a call(s) to the appropriate entry 
point in the appropriate library routine. 
For NAMELIST READ/WRITE, the call is to 
IHCNAMEL, which then calls IHCFIOSH/ 
IHCEFIOS and IHCFCVTH. For DEFINE FILE, 
the call is to IHCDIOSE/IHCEDIOS. For all 
other operations, the call is to IHCFCOMH/ 
IHCECOMH. If the operation is sequential 
READ/WRITE, the IHCFCOMH/IHCECOMH routine 



calls IHCFIOSH/IHCEFIOS (and also IHCFCVTH 
if format control is present). If the 
operation is REWIND, BACKSPACE, or ENDFILE, 
the IHCFCOMH/IHCECOMH routine calls 
IHCFIOSH/IHCEFIOS. If the operation is 
direct access READ, WRITE, or FIND, routine 
IHCFCOMH/IHCECOMH calls IHCDIOSE/IHCEDIOS 
(and IHCFCVTH if format control is pre- 
sent). If the operation is STOP with 
message, or PAUSE, routine IHCFCOMH/ 
IHCECOMH calls the supervisor. This flow 
is outlined in Figure 17. For each direct 
access or sequential read/write request, 
the compiler-generated code issues multiple 
calls to IHCFCOMH/IHCECOMH: an initial 
call, one call for each item (either vari- 
able or array) in the I/O list, and a final 
call. Thus, the FORTRAN statement READ 
(23, 100) Z, Y, X results in five consecutive 
calls to IHCFCOMH/IHCECOMH. 
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COMPILER-GENERATED OBJECT CODE 



7^ 



DEFINE 
FILE 






all other 

!/w 'SQucStS 



NAMELIST 
READ/WRITE 



V 



IHCFCOMH/ 
IHCECOMH 
interprets 
request 




direct 

access 

READ, 

WRITE, 

FIND 



\L 




IHCDIOSE/ 
IHCEDIOS saves 
DEFINE FILE data; 
submits i/O request 
to data management 




c=c> 



il 



IHCNAMEL 

interprets 

request 



ft 



sequential 
READ. WRITE, 
BACKSPACE, 
REWIND, 
ENDFILE 




write to 
operator 

/STOP and 
PAUSE 1 



V 



IHCFIOSH/IHCEFIOS 
submits request 




ft 



load module 



operating 
system 



Basic Direct 
Access Methods 



iU> 



Basic Sequential 
Access Methods 



^ _ . ■ „ 'If Format is present 

Figure 17. Control Flow for Input/Output Operations ,. For pre . formatting nev v data sets before writing users data 
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DEFINE FILE 



• previous operation was backspace 



The compiler-generated code branches 
directly to IHCDIOSE/IHCEDIOS at entry 
point DIOCS#. This section takes the 
address of the parameter list containing 
the data set characteristics supplied by 
the user and places it in the appropriate 
unit assignment table (IHCUATBL) entry. 
There may be more than one data set defined 
per DEFINE FILE statement, in which case 
DIOCS# loops through the definitions, plac- 
ing the parameter list addresses into the 
table. 

If a data set has been previously 
defined, the new definition is ignored. If 

the data set requested is sequential rather 

than direct, IHCERRM is called with error 

condition 235 indicated. If the data set 

is the object error unit, IHCERRM is called 
with error 234 indicated. 

DIOCS# also places the address of the 
section IHCDIOSE/IHCEDIOS that handles 
actual reads and writes--IBCENTRY — into a 
fixed location in IHCFCOMH/IHCECOMH, in 
order to establish addressability for later 
branching. If the user fails to place his 
DEFINE FILE statement ahead of his asso- 
ciated READ or WRITE statement, this 
address will not be available, and an error 
condition will occur. 

DIOCS* returns to the compiler-generated 
code. 



SEQUENTIAL READ/WRITE WITHOUT FORMAT 



Initial Call 



The initial call is to IHCFCOMH/ 
IHCECOMH, which saves END= and ERR= 
addresses, if they are present, in its 
locations ENDFILE and IOERROR, respective- 
ly, and then branches to IHCFIOSH/IHCEFIOS, 
passing along the data set reference 
number. 

IHCFIOSH/IHCEFIOS uses this data set 
reference number to consult the correspond- 
ing entry in the table IHCUATBL. (This 
table is explained in Figures 18 and 19. ) 
The initialization action taken by 
IHCFIOSH/IHCEFIOS depends on the nature of 
the previous operation performed on this 
data set. The previous operation possibi- 
lities are: 

• no previous operation 

• previous operation was read or write 



• previous operation was write end of 
file 

• previous operation was rewind 

NO PREV IOUS OPERATION : IHCFIOSH/IHCEFIOS 

must create a unit block, which will con- 
tain the DCB, DECBs, and other library 
information to be used in controlling 
operations. Space for the unit block is 
acquired with a GETMAIN, and a pointer to 
it is stored in the IHCUATBL entry. (The 
contents of the unit block are outlined in 
Figure 20. ) 

IHCFIOSH/IHCEFIOS inserts certain stan- 
dard values into the DCB in the unit block. 
It does this by moving in a copy of a 
nonfunctioning skeleton DCB, which speci- 
fies DSORG as PS, MACRF as (R,W), DDNAME as 
FTnnFOOl, and gives addresses in IHCFIOSH/ 
IHCEFIOS for SYNAD and EODAD, and for 
EXLST, which specifies the OPEN exit rou- 
tine. IHCEFIOSH/IHCEFIOS puts the data set 
reference number into the nn field of the 
DDNAME. This establishes for the system 
the connection between this DCB and the 
user's DD card, which must have the same 
name on it. 

IHCFIOSH/IHCEFIOS now issues an OPEN 
macro instruction, which merges the user's 
DD information, and label information if 
the data set already exists. When its open 
exit routine (IHCDCBXE) gains control, 
IHCFIOSH/IHCEFIOS examines the DCB. If 
fields are zero, indicating the user has 
omitted corresponding DD parameters, 
IHCFIOSH/IHCEFIOS inserts library default 
values. (These default values are stored 
in the IHCUATBL entry.) 

After completion of the OPEN macro, 
IHCFIOSH/IHCEFIOS places the buffer 
address (es) in the housekeeping section of 
the unit block, and also in the DECB(s). 
It also puts the DCB address into the 
DECB(s). If this is a read operation, it 
sets the first byte of the type of input/ 
output request field in the DECB(s) to 
X'80', indicating the reads should be of 
blocksize; if this is a write operation, it 
sets this byte to X'00', indicating the 
writes should be of logical record length. 

If the initialization is for a read 
operation, IHCFIOSH/IHCEFIOS now issues a 
READ macro, with a CHECK, filling the 
buffer. If double buffering is in effect, 
it also issues a second READ macro, to 
begin filling the second buffer. (This 
READ is not checked until IHCFIOSH/IHCEFIOS 
is entered the next time for this data 
set. ) Control is returned to IHCFCOMH/ 
IHCECOMH, along with address and length of 
the data that was read. 
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If the initialization is for a write 
operation, IHCFIOSH/IHCEFIOS simply returns 
to IHCFCOMH/IHCECOMH* passing the address 
and length of the buffer. (The actual 
write operation will not take place until 
IHCFCOMH/IHCECOMH fills the buffer.) 

PREVIOUS OPERATION—READ OR WRITE: In this 
case, the data set is already open and the 
unit block in existence. The DECB is set 
to indicate the proper action (either read 
or write). If this is a write request, 
control is returned to IHCFCOMH/IHCECOMH 
with buffer address and length. If it is a 
read request, the READ macro is issued to 
fill the buffer, and the address and length 
of the data that was read is passed back to 
IHCFCOMH/IHCECOMH. 

PREVIOUS OPERATI O N- -B ACK SPACE; The Opera- 
tion is the same as for "Previous 
Operation — Read or Write" described above, 
except that priming of buffer (s) may be 
needed. 



PREVIOUS OPERATION--END FILE: 



IHCFIOSH/ 



IHCEFIOS must first close the existing data 
set, and process a new one. To process a 
new data set, IHCFIOSH/IHCEFIOS increments 
the sequence number of the DDNAME field in 
the old DCB; for example, FT1<4F001 is 
changed to FT1HF002. The OPEN procedure 
described above under "No Previous Opera- 
tion" is then followed. (The library 
assumes the user has a FTnnF002 DD card for 
this new data set.) The usual read or 
write procedure is used. 

PREVIOUS OPERATION-- REWIND: The data set 

has been closed, and must be reopened. The 
procedure is the. same as that described 
under "No Previous Operation, " beginning 
after the creating of the unit block. 

In all of the above cases, IHCFIOSfl/ 
IHCEFIOS returns to IHCFCOMH/IHCECOMH, 
which saves the buffer pointer and length, 
and then returns to the compiler-generated 
code. 



Second Call 



The compiler-generated code calls 
IHCFCOMH/IHCECOMH, passing information 
about the first item in the I/O list (its 
address, type, whether it is a variable or 
array, etc.). If this is a read request 
for a variable, IHCFCOMH/IHCECOMH takes the 
proper number of bytes from the buffer and 
moves them to the indicated address. FOr 
an array, IHCFCOMH/IHCECOMH repeats the 
process, filling the array element by ele- 
ment. If this is a write request for a 
variable, IHCFCOMH/IHCECOMH takes the item 
from the indicated address and moves it 



into the buffer. For an array, IHCFCOMH/ 
IHCEGGMK repeats the process, emptying the 
array eleinent by element. After adjusting 
its buffer pointer so it points to either 
the next data item or the next empty space, 
IHCFCOMH/IHCECOMH returns to the compiler- 
generated code. 



Additional- List Item calls 



The procedure is the same as for the 
first list item, with these exceptions. 
When IHCFCOMH/IHCECOMH is processing a read 
request and finds it has emptied the buff- 
er, it calls IHCFIOSH/IHCEFIOS ' to issue 
another READ macro and refill it. If 
double buffering is in effect, iHCFlOSH/ 
IHCEFIOS passes the address of the other 
buffer (after checking the READ macro for 
that buf f erl , and then issues a READ macro 
instruction for the buffer just emptied, 
always keeping One READ ahead. 

When IHCFCOMH/IHCECOMH is processing a 
write request and finds it has filled the 
buffer, it calls IHCFIOSH/IHCEFIOS to issue 
the actual WRITE matrO. If double buffer- 
ing is in effect, IHCFIOSH/IHCEFIOS passes 
back the address of the other buffer. 



Final Call 



For a read operation, the main program 
passes control to IHCFCOMH/IHCECOMH which 
passes control on to IHCFIOSH/IHCEFIOS. If 
IHCFIOSH/IHCEFIOS finds that, for this data 
set, physical records are larger than log- 
ical records, it simply returns to 
IHCFCOMH/IHCFCOMH, which returns to the 
compiler-generated object code. If physi- 
cal records are shorter than logical rec- 
ords, IHCFIOSH/IHCEFIOS issues READ macros 
until it reaches the end of the logical 
record. This positions the device at the 
beginning of the next logical record, in 
preparation for subsequent FORTRAN READ 
requests for this unit. 

For a write operation, IHCFCOMH/IHCECOMH 
gives control to IHCFIOSH/IHCEFIOS. If the 
data set is unblocked, or if it is blocked 
and the buffer is full, IHCFIOSH/IHCEFIOS 
issues a final WRITE macro. 



System Block Modifica tion and Re ferenc e 



While performing its functions, 
IHCFIOSH/IHCEFIOS may modify certain fields 
of the current DCB: 
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DCBBLKSI--IHCFIOSH/IHCEFIOS changes this 
field before writing out a short 
block when RECFM=FB. IHCFIOSH/ 
IHCEFIOS restores it after issu- 
ing the corresponding CHECK 
macro. 



DCBOFLGS — before issuing a CLOSE (TYPE=T) 
macro to implement an ENDFILE 
request, IHCFIOSH/IHCEFIOS turns 
on the high order bit to make 
this look like an output data 
set. 

IHCFIOSH/IHCEFIOS also modifies some 
fields of the DECB(s), in addition to its 
ini tialization : 



• conditions 219 or 220 — IHCEFIOS 
returns to its original caller at the 
error displacement. (The error displa- 
cement is 2 bytes beyond the address 
originally passed to it in register 0; 
the normal return point is 6 bytes 
beyond the address originally passed in 
register 0. ) 



• condition 21 *4 — if user-supplied 
corrective action is indicated or if 
the operation is a read, IHCEFIOS 
ignores the input/output request and 
returns to the error displacement. 
Otherwise, it changes the record format 
to VS and continues execution. 



DECTYPE (byte l)--for reads, set to indi- 
cate a read of blocksize; for 
writes, set to indicate a write 
of logical record size. 

DEcr/PE (byte 2) — set to indicate read or 
write when the previous opera- 
tion for this data set was the 

opposite. 

DECLNGTH--f illed in when a U-type record is 
to be written. 

In addition to referring to the DCB and 
DECB(s), IHCFIOSH/IHCEFIOS also examines 
the CSW field in the Input/Output Block 
(IOB) to get the residual count. (The DECB 
points to the IOB. ) By subtracting the 
residual count from the DCB blocksize, 
IHCFIOSH/IHCEFIOS knows the actual length 
of the data read into the buffer. 



Error Conditions 



During their processing of unformatted 
sequential reads and writes, IHCFIOSH/ 
IHCEFIOS and IHCFCOMH/IHCECOMH check at 
various times for a number of error condi- 
tions. IHCFIOSH/IHCEFIOS checks for the 
following error conditions: the user's data 
set reference number is out of IHCUATBL 
range (error 220) ; he failed to supply a DD 
card for the requested data set (error 219); 
and he specified anything other than Vari- 
able Spanned (VS) records (error 214); 
IHCFCOMH/IHCECOMH checks each I/O list item 
to see if it exceeds buffer size (error 
213) . If one cf these errors is detected, 
control is passed to IHCERRM. 



If extended error handling is in effect, 
control returns from IHCERRM to its caller, 
which does the following: 



condition 213 — IHCECOMH ignores the 
list item request, and any further list 
item requests for this read or write. 



If an end-of-file is detected when 
IHCFIOSH/IHCEFIOS issues a CHECK macro, its 
EODAD routine gains control. It branches 
to the user's END= address if one exists. 
If not, it branches to IHCERRM. Without 
extended error handling, this is a terminal 
error. With extended error handling, con- 
trol returns to IHCEFIOS after error mes- 
sage and traceback printing, and possible 
user corrective action. IHCEFIOS T-closes 
the data set, and returns to its original 
caller at the error displacement. 



If an input/output error is detected 
when IHCFIOSH/IHCEFIOS issues a CHECK 
macro, its SYNAD routine gains control. It 
issues a GETMAIN for extra space, and then 
issues a SYNADAF macro, which puts relevant 
information into the area. (If extended 
error handling exists, IHCEFIOS has the 
associated data set reference number con- 
verted and places it into the error 
message--218. ) IHCFIOSH/IHCEFIOS next asks 
data management to accept the data in 
error, and restart the IOB chain. IHCERRM 
is then called. Without extended error 
handling, the error message and traceback 
are printed, and then IHCERRM branches to 
the user's ERP= address if there is one, 
and to the IBEXIT section of IHCFCOMH if 
there was not. With extended error handl- 
ing, IHCERRM goes to the user's option 
table exit routine if there is one and, in 
any case, prints out the error message and 
traceback. Then it branches to the user's 
ERR= address, if there is one. If not, it 
returns to IHCEFIOS, which continues pro- 
cessing if the user supplied his own corre- 
ctive action; if not, IHCEFIOS returns to 
the error displacement of the routine that 
originally called it. 
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SEQUENTIAL READ/WRITE WITH FORMAT 



These operations are the same as for 
sequential read/write without format, 
except IHCFCOMH/IHCECOMH must scan and 
interpret the associated format specifica- 
tion, and control the conversion and move- 
ment of list items accordingly. 



P rocessi ng t he Format Spe cification 



O FENING S ECT ION : Upon return from tne 
initialization section of IHCFIOSH/ 
IHCEFIOS, IHCFCOMH/IHCECOMH begins examin- 
ing the format specification, the address 
of which is passed as an argument in the 
initial branch from the compiler-generated 
code. The format specification may be one 
of two types: one declared in a FORMAT 
statement in the FORTRAN source program; or 
an array that the user has filled in with 
format information during execution (often 
referred to as object-time format specifi- 
cation). In the former case, the compiler 
has already translated the statement into 
an internal code. In the latter, the 
format information exists in its EBCDIC 
form, just as it would in a FORMAT 
statement. 

In the case of an object-time format 
specification, IHCFCOMH/IHCECOMH must pick 
up the array contents and process them so 
they are in the same form as a format 
specification processed by the compiler. 
IHCFCOMH/IHCECOMH does this using the TRT 
instruction and its table TRTSTB. 

The translated format codes, and their 
meanings to IHCFCOMH/IHCECOMH, are listed 
in Table 10. 



In both cases, IHCFCOMH/IHCECOMH now 
begins scanning the format information. It 
reads it -- saving the control information 
— until it finds the first conversion code 
(or the end of the FORMAT statement). Then 
it exits to the compiler-generated code. 



LIST I TEM C ALL S FOR READ REQUEST: When 

IHCFCOMH/ is entered for the first list 
item, it determines from the. conversion 
code which section of the conversion rou- 
tine IHCFCVTH to call. It passes informa- 
tion from the format specification, (such 
as scaie and width), information about the 
list item (such as its address), and buffer 
address and length. IHCFCVTH, and its 
associated subroutines, do both the conver- 
sion and the moving of the data from buffer 
to list item location or vice versa. 



In general, after a conversion routine 
has processed a list item, IHCFCOMH/ 
IHCECOMH determines whether or not that 
routine can be applied to the next list 
variable or array element (if an array is 
being processed). IHCFCOMH/IHCECOMH 
examines a field count in the format speci- 
fication that indicates the number of times 
a particular conversion code is to be 
applied to successive list variables or 
elements of an array. 



If the conversion code is to be repeated 
and if the previous list item was a vari- 
able, IHCFCOMH/IHCECOMH returns control to 
the main program. The main program again 
branches to IHCFCOMH/IHCECOMH and passes, 
as an argument, the main storage address 
assianed to the next ] ist item. 
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Table 10. Format Code Translations and Their Meanings (Part 1 of 2) 

r t -t — t t 

Code After 

Compiler or 

IHCFCOMH/ 
Source j IHCECOMH 
FORMAT | Translation 
Code | ( in hex) IDescription IType 



Corresponding Action by IHCFCOMH/ IHCECOMH 



beginning of statement 



n< 



OUn 



nP 

Tn 

nx 



•text* 
or nH 



06a 

08* 
12n 

18n 
lAw 



group count 
(n=l-byte 
value of 
repeat count; 
set to 1 if no 
repeat count) 

field count 
<a=l-byte 
value of 
repeat count) 

scaling factor 

column reset 

<n=l-byte 

value) 

skip or blank 

(n=l-byte 

value) 

literal data 



control 



control 



control 

control 
control 

control 

control 



Save location for possible repetition of 
the format codes; clear counters. 

Save n and location of left parenthesis 
for possible repetition of the format 
codes in the group. 



Save a for repetition of format code that 
follows. 



Save n for use by F, E # and D conversions. 

Reset current position within record 
nth column pr byte. 



Skip n characters of an input record, or 
insert n blanks in an output record. 



Move w characters from an input record to 
the FORMAT statement, or w characters from 
the FORMAT statement to an output record. 



Notes ; * is a 1-byte value of n, if n was positive; if negative, it is the value plus 
128(decimal) . 
w = 1-byte value of field width, 
d = 1-byte value of number of digits after the decimal point. 
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Table 10. Format Code Translations and Their Meanings (Part 2 of 2) 





QQ/ia f. FJ 












-• ^- ni i_ ci 










Compiler or 










IHCFCOMH/ 








Source 


IHCECOMH 








FORMAT 


Translation 








Code 


(in hex) 


Description 


Type 


Corresponding Action by IHCFCOMH/IHCECOMH 


rw'iii 


OA 


w. d 


F-conversion 


conversion 


IHCPCOMH/IHCECOMH passes the values of w, 


Ew.d 


OC 


w. d 


E-conversion 


conversion 


d and p_ — plus information about the list 


Dw.d 


OE 


w. d 


D-conversion 


conversion 


item and the buffer — to the appropriate 


Iw 


10 


w 


I-conversion 


conversion 


section of IHCFCVTH for conversion. 


Aw 


14 


w 


A- conversion 


conversion 




Gw.d 


20 


w. d 


G-conversion 


conversion 




Lw 


16 


w 


L- conversion 


conversion 




Zw 


24 


w 


Z-conversion 


conversion 




) 


1C 




group end 


control 


Test group count. If it is greater than 
1, repeat format codes in group; other- 
wise, continue to process FORMAT statement 
from current position. 


/ 


IE 




record end 


control 


Input or output one record using IHCFIOSH/ 
IHCEFIOS/ and READ/WRITE macro 
instruction. 








end of 


control 


If no I/O list items remain to be 








s tat ement 




transmitted, return control to load module 
to link to the closing section; if I/O 
list items remain, read or write one 
record using input/output interface and 
the READ/WRITE macro instruction. Repeat 
format codes from last parenthesis. 



J. L J 



X X 



Notes: 



if n war, positive; if negative, it is the value plus 



♦is a 1-byte value of n, 

128 (decimal). 
w - 1-byte value of field width, 
d = 1-byte value of number of digits after the decimal point. 



If the conversion code is to be repeated 
and if an array is being processed, 
IHCFCOMH/IHCECOMH computes the main storage 
address of the next element in the array. 
The conversion routine that processed the 
previous element is then given control. 
This procedure is repeated until either all 
the array elements associated with a spe- 
cific conversion code are processed or end 
of logical record is detected (error 212). 
In the latter case, control is passed to 
IHCERRM. 

If the conversion code is not to be 
repeated, control is passed to the scan 
portion of IHCFCOMH/IHCECOMH to continue 
the scan of the format specification. If 
the scan portion determines that a group of 
conversion codes is to be repeated, the 
conversion routines corresponding to those 
codes are applied to the next portion of 
the input data. This procedure is repeated 



until either the group count is exhausted 
or the input data for the READ statement is 
exhausted. 

If a group of conversion codes is not to 
be repeated and if the end of the format 
specification is not encountered, the next 
format code is obtained. For a control 
type code, control is passed to the asso- 
ciated control routine to perform the indi- 
cated operation. For a conversion type 
code, control is returned to the compiler- 
generated code if the previous list item 
was a variable. The compiler-generated 
code again branches to IHCFCOMH/IHCECOMH 
and passes, as an argument, the main 
storage address assigned to the next list 
item. control is then passed to the conv- 
ersion routine associated with the new 
conversion code. The conversion routine 
then processes the data for this list item. 
If the data that was just converted was 
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placed into an element of an array and if 
the entire array has not been filled, 
IHCFCOMH/IHCECOMH computes the main storage 
address of the next element in the array 
and passes control to the conversion rou- 
tine associated with the new conversion 
code. The conversion routine then pro- 
cesses the data for this array element. 

If, in the midst of its processing, 
•IHCFCOMH/IHCECOMH finds that it has emptied 
the buffer it calls IHCFIOSH/IHCEFIOS to 
issue another READ macro instruction. 



If the scan po 
of the format speci 
list items are sa 
to the next sequent 
the compiler-genera 
tion (part of th 
I HCFCOMH/ IHCECOMH ) 
section. If all 
satisfied, control 
output interface 
macro instruction) 



rtion encounters the end 
fication and if all the 
tisfied, control returns 
ial instruction within 
ted code. This instruc- 
e calling sequence to 
branches to the closing 
the list items are not 
is passed to the input/ 
to read (via the READ 
the next input record. 



LIST ITEM CALLS FOR WRITE REQUEST : 
IHCFCOMH/IHCECOMH processing is similar to 
that for a read request. The main dif- 
ference is that the conversion routines 
obtain data from the main storage addresses 
assigned to the list items rather than from 
an input buffer. The converted data is 
them transferred to an output buffer. If 
all the list items have not been converted 
and transferred prior to the encounter of 
the end of the format specification, con- 
trol is passed to the IHCFIOSH/IHCEFIOS 
routine. IHCFIOSH/IHCEFIOS writes (via 
the WHITE macro instruction) the contents 
of the current output buffer onto the out- 
put data set. 

Formatting control for the remaining 
list items is then resumed at the group 
count of the left parenthesis corresponding 
to the last preceding right parenthesis, 
or, if none exists, from the first left 
parenthesis. 

If IHCFCOMH/IHCECOMH detects an error in 
the format specification (condition 211), 
it calls IHCERRM. Standard corrective 
action in the case of extended error handl- 
ing is to treat the invalid character as a 
terminal right parenthesis and continue 
execut ion. 

C LOS I NG SECTION: If the operation is a 
read request, the closing section simply 
returns control to the main program to 
continue execution. If the operation is a 
write requiring a format, the closing sec- 
tion branches to the IHCFIOSH/IHCEFIOS 
routine. IHCFIOSH/IHCEFIOS writes (via the 
WRITE macro instruction) the contents of 
the current input/output buffer (the 
final record onto the output data set. 



IHCFIOSH/IHCEFIOS then returns control to 
the closing section. The closing section, 
in turn, returns control to the compiler- 
generated code. 



DIRECT ACCESS READ/WRITE WITHOUT FORMAT 



Unformatted reading and writing for 
direct access data sets is handled by 
IHCFCOMH/IHCECOMH and IHCDIOSE/IHCEDIOS. 
The procedure is similar to that for 
sequential data sets. The compiler- 
generated object code calls IHCFCOMH/ 
IHCECOMH once for initialization, once for 
closing, and once in between for each item 
(variable or array) in the I/O list. 
IHCFCOMH/IHCECOMH calls IHCDIOSE/IHCEDIOS 
once for initialization, once for closing 
(if it is a write request), and as many 
times in between as the input/output data 
requires. The actions of IHCFCOMH/IHCECOMH 
are identical to those for sequential 
unformatted read and write operations. The 
only exception is that IHCDIOSH/IHCEDIOS is 
called in place of IHCFIOSH/IHCEFIOS. 



Initialization Branch 



When IHCDIOSE/IHCEDIOS is given control, 
it checks the entry in IHCUATBL correspond- 
ing to the indicated data set reference 
number to see if the data set has been 
opened. If not, IHCDIOSE/IHCEDIOS con- 
structs a unit block for that data set in 
an area acquired by a GETMAIN, and places a 
pointer to it in the IHCUATBL entry. (This 
unit block, which is slightly different 
from ones created by IHCFIOSH/IHCEFIOS, is 
diagrammed in Figure 21. ) 

IHCDIOSE/IHCEDIOS next reads the Job 
File Control Block (JFCB) via a RDJFCB 
macro instruction. The appropriate fields 
in the JFCB are examined to determine if 
the user included a request for track 
overflow and a BUFNO subparameter in his DD 
statement for this data set. If he did, 
they are inserted into the DCB skeleton in 
the unit block. If BUFNO was not included 
or was other than 1 or 2, a value of 2 is 
inserted in the DCB skeleton. IHCDIOSE/ 
IHCEDIOS next examines the data set dispo- 
sition field of the JCFB. If the data set 
is new and the requested operation is a 
write, IHCDIOSE/IHCEDIOS must first format 
the data set before it can do the actual 
writing. 

FORMATTING A NEW DATA SET: IHCDIOSE/ 

IHCEDIOS modifies the JFCB so that the 
disposition is old, and fills in the fol- 
lowing fields in the DCB in the unit block: 
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PCB_fi§ld Setting_of_field_before_OPEN 
BUFNO X'02' Two buffers 
NCP X' 02' Two DECBS 

DSORG X'UO* Set for DSORG=PS 
MACR X'0020* Normal BSAM WRITE 
OPTCD Set to X'00' or X'20' 
depending upon whether 
chained scheduling was not 
or was specified on the DD 
card as obtained from the 
JFCB. 
DDNAME Set to FTnnFOOl, where • nn' 
is the DSRN. 



Then an OPEN macro instruct! 
is issued. (TYPE=J). The 
field, buffer address f 
address field are filled i 
Then IHCDIOSE/IHCEDIOS iss 
WRITE macro instructions 
unblocked blank records 
track(s). Record length and 
fications are taken from 
parameter list pointed to by 



on, using BSAM, 
record length 

ield, and DCB 

n the DECB's. 

ues sufficient 
for fixed 

to format the 
number speci - 

the DEFINE FILE 
IHCUATBL. 



The TRBAL field is used during BSAM 
writing to calculate whether there is 
enough room on the track for additional 
records after it has written the reguired 
number of fixed-length records. If the 
track is not full, data management does not 
create an RO record and the OS utilities 
cannot process the data set. Therefore, if 
the track is not full, the library writes 
as many extra records as necessary until 
the track is complete. 

The data set is then closed. The DCB is 
modified in the following way in order that 
it may be re-opened for BDAM and the actual 
writ ing. 

Ne w S etting for BDAM OPEN 
Reset for BDAM 
DSORG=DA 
BDAM update 
and check 
BDAM WRITE by ID 
BDAM relative 
block address. 



DCB Field 


New Se 


NCP 


X'00« 


DSORG 


X'02 1 


MACR 


X'29' 


MACR + 1 


X' 28' 


OPTCD 


X'01' 



yiit§ : Upon initial branch, IHCDIOSE/ 
IHCEDIOS does no writing at this time, 
but only fills the buffer with zeros 
and passes buffer address and buffer 
length back to IHCFCOMH/IHCECOMH so the 
latter may begin moving in the list 
items. 



Read : Upon initial branch, IHCDIOSE/ 
relative record numb- 
the user, which has 
by IHCFCOMH/IHCECOMH. 
examines the buffer 
ord is already pre- 
11 be the case if the 
e quest pr? a FIND for 
If not pie sent, 
issues a READ macro 
case issues a CHECK. 
e associated variable 
r list to point to ♦.ho 
the one just read, 
returns to IHCFCOMH/' 
the buffer address 



IHCEDIOS gets t hf 
er requested by 
been passed along 
IHCDIOSE/IHCEDIOS 
to see if the rec 
sent. (This wi 
user previously r 
this record.) 
IHCDIOSE/IHCEDIOS 
and, in either 
After updating th 
in the paramete 
record following 
IHCDIOSE/IHCEDIOS 
IHCECOMH, passing 
and length. 



The procedure then is the same a; 
an old data set (see below). 



opening 



Successive Entries for List Items 



WRITE OPERATION: When IHCFCOMH/IHCECOMH 

has filled the buffer with list items, it 
branches to IHCDIOSE/IHCEDIOS indicating a 
write request. IHCDIOSE/IHCEDIOS obtains 
the relative record number from the para- 
meter list passed along by IHCFCOMH/ 
IHCECOMH, and writes the record out via a 
WRITE macro instruction. It updates the 
associated variable in the parameter list 
to point to the record following the one 
just written. If single buffering is being 
used, it checks the write and returns to 
IHCFCOMH/IHCECOMH. If double buffering is 
being used, it postpones the check until 
its next call, and returns the address of 
the other buffer to IHCFCOMH/IHCECOMH. 

READ OPERATION : IHCDIOSE/IHCEDIOS handles 
any further read requests from IHCFCOMH/ 
IHCECOMH exactly as for the first (without 
checking for the data set being open). 



OPENING A D ATA SET WHO 

OLD : The data set is open 
the UPDAT option. In its 
tine, IHCDIOSE/IHCEDIOS 
values (from the IHCUATBL 
omitted by the user. 
IHCDIOSE/IHCEDIOS inserts 
the address (es) of the b 
during control block openi 



SE_DISPQSITIQN_IS 
ed for BDAM, with 
open exit rou- 
supplies default 
entry) for those 
After the open, 
into the DECB's 
uffer(s) obtained 
ng. 



After doing this, or if the data set is 
already opened, IHCDIOSE/IHCEDIOS performs 
the following actions: 



Final Branch 



WRITE OPERATION : IHCFCOMH/IHCECOMH calls 
IHCDIOSE/IHCEDIOS to write out the final 
buffer. 



READ OPERATION 



I HCFCOMH/ IHCECOMH 
compiler-generated code 



to the 

calling IHCDIOSE/IHCEDIOS. 



returns 
without 
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Error Conditions 



READ AND WRITE USING NAMELIST 



If IHCDIOSE/IHCEDIOS detects an input/ 
output error condition, it performs in a 
manner similar to IHCFIOSH/IHCEFIOS by 
issuing a SYNADAF macro, using the resul- 
tant information to build a 218 error 
message, and passing control to IHCERRM. 

IHCDIOSE/IHCEDIOS will also identify at 
one time or another the following error 
conditions: 

231 — the data set indicated by the 

caller is sequential rather than 

direct. 
2 32 — the record number requested is 

out of data set range. 
233--the indicated record length 

exceeds 32K-1. 
236 — the read requested is for an 

uncreated data set. 
237 — the specified record length is 

incorrect. 

In all these cases, IHCDIOSE/IHCEDIOS sets 
up the error message data and passes con- 
trol to IHCERRM. 



DIRECT ACCESS READ/WRITE WITH FORMAT 



Requests for direct access reads and 
writes with format are handled by IHCFCOMH/ 
IHCECOMH, with the assistance of IHCDIOSE/ 
IHCEDIOS and IHCFCVTH. The actions of 
IHCDIOSE/IHCEDIOS are exactly the same as 
for unformatted direct access reads and 
writes. The actions of IHCFCOMH/IHCECOMH 
are exactly the same as for sequential read 
and write requests with format, except it 
calls IHCDIOSE/IHCEDIOS instead of 
IHCFIOSH/IHCEFIOS. 



FIND 



Implementation of the FIND statement is 
very similar to implementation of the open- 
ing branch for a direct access read 
(explained above) . control is passed from 
the compiler-generated code to IHCFCOMH/ 
IHCECOMH and on to IHCDIOSE/IHCEDIOS. 
IHCDIOSE/IHCEDIOS opens the data set if 
need be, and then checks to see if the 
record is already in the buffer. If it is, 
IHCDIOSE/IHCEDIOS updates the associated 
variable. If not, it issues a READ macro. 
Then it returns through IHCFCOMH/IHCECOMH 
to the compiler-generated code. This READ 
begins filling the buffer. It is not 
checked until the next entry to IHCDIOSE/ 
IHCEDIOS for this data set. 



Namelist reading and writing is handled 
by IHCNAMEL, with the assistance of 
IHCFIOSH/IHCEFIOS and IHCFCVTH. The 
compiler-generated object code branches 
only once to IHCNAMEL (to entry point 
FRDNL* for reads and to entry point FWRNL** 
for writes), passing the address of the 
namelist dictionary containing the user's 
specifications. IHCNAMEL uses this dic- 
tionary information to direct its opera- 
tions, calling IHCFIOSH/IHCEFIOS to do the 
actual reading or writing, and the appro- 
priate sections of IHCFCVTH to convert data 
and move it from buffer to user area or 
vice versa. 

From the point of view of IHCF10SH/ 
IHCEFIOS and IHCFCVTH, a namelist read or 
write is no different than any other for- 
matted sequential read/write operation. 
IHCNAMEL calls IHCFIOSH/IHCEFIOS once to 
initialize the data set and once to close 
it, and as many times in between to read or 
write as the namelist data requires. 
IHCNAMEL calls IHCFCVTH as many times as 
the namelist data requires. 

The namelist dictionary, which is the 
compiled version of the user's NAMELIST 
statement, consists of a 2-word namelist 
name field (right- justified and padded to 
the left with blanks), and as many entries 
as there were items in the NAMELIST defini- 
tion. There are two types of entries: one 
for variables, and one for arrays. They 
are illustrated in Section 1, "Namelist 
Tables. " 



Read 



IHCNAMEL first stores the END= and ERR= 
addresses, if they exist, in the proper 
locations in IHCFCOMH/IHCECOMH. This makes 
them available to IHCFIOSH/IHCEFIOS and 
IHCERRM if end-of-file or an input/output 
error occur. 

IHCNAMEL searches through the data read 
by IHCFIOSH/IHCEFIOS looking for the name- 
list name that is located in the dic- 
tionary. When it locates the namelist 
name, it picks up the next data item. It 
now searches through the dictionary 
entries, looking for a matching variable or 
array name. When the name is located, 
IHCNAMEL obtains the associated specifica- 
tion information in that entry. 

Processing of the constant in the input 
data now begins. Each initialization con- 
stant assigned to the variable or an array 
element is obtained from the input record. 
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The appropriate conversion routine is 
selected according to the type of the 
variable or array element. Control is then 
passed to the conversion routine to convert 
the constant and to enter it into' its 
associated variable or array element. 

Note : One constant is required for a 
variables A number of constants eaual to 
the number of elements in the array is 
required for an array. A constant may be 
repeated for successive array elements if 
appropriately specified in the input 
record. 

The process is repeated for the second 
and subsequent names in the input record. 
When an entire record has been processed, 
the next record is read and processed. 

Processing is terminated upon recogni- 
tion of the SEND record. Control is then 
returned to the calling routine within the 
load module. 



Write 



IHCNAMEL takes the namelist name from 
the dictionary, puts it in the buffer, and 
has IHCFKXSH/IHCEFIOS write it out. The 
prooessinq of the variables and arrays 
listed in the dictionary then beqins. 

The first variable or array name in the 
dictionary is moved to an output buffer 
followed by an equal sign. The appropriate 
conversion routine is selected accordinq to 
the type of variable or array elements. 
Control is then passed to the conversion 
routine to convert the contents of the 
variable or the tirst array element and to 
enter it into the output buffer. A comma 
is inserted into the buffer following the 
converted quantity. If an array is beinq 
processed, the contents of its second and 
subsequent elements are converted, usinq 
the same conversion routine, and placed 
into the output buffer, separated by com- 
mas. When all of the array elements have 
been processed or if the item processed was 
a variable, the next name in the dictionary 
is obtained. The process is repeated for 
this and subsequent variable or array 
names. 



Error Conditions 



IHCNAMEL calls IHCERRM if it cannot find 
a name in the dictionary (error 222), if a 
name exceeds permissible length (221), if 
it cannot locate the required equal sign in 
the input data (223), or if a subscript is 
included for a variable or is out of ran^e 
for an array (22U) . 



STOP AND PAUSE ( WRITE- TO-OPERATOR) 



Stop_ 



control 
generated 
IHCFCOMH/I 
if there i 
not, it 
section of 
load modu 
message, t 
sage to 
branches t 
load modul 



Pause 



is passed by the compiler- 
code to the FSTOP section of 
HCECOMH. This section determines 
s a user message attached. If 
simply branches to the IBEXIT 
IHCFCOMH/IHCECOMH to terminate 
le execution. If there is a 
he FSTOP section issues the mes- 
the console via SVC 35. It then 
o the IBEXIT section to terminate 
e execution. 



Control is passed by the compiler- 
generated code to the FPAUS section of 
IHCFCOMH/IHCECOMH. FPAUS issues a SVC 35 
including the user's message or identifier, 
or "00000" if there wan none. It then 
issues a WAIT to determine when the reply 
has been transmitted. After the operator 
or terminal user replies, IHCFCOMH/IHCECOMH 
returns control to the compiler-generated 
code. 



BACKSPACE 



Control is passed from the compiler- 
generated code to the FBKSP section of 
IHCFCOMH/IHCECOMH, which passes control to 
IHCFIOSH/IHCEFIOS. 



If, at any time, the record length is 

exhausted, the current record is written 

and processing resumes in the normal 
fashion. 

When the last variable or array has been 
processed, the contents of the current 
record are written, the characters SEND are 
moved to the buffer and written, and con- 
trol is returned to the calling routine 
within the load module. 



For unblocked records, IHCFIOSH/IHCEFIOS 
issues a physical backspace (BSP) to posi- 
tion to the desired record. If 2 buffers 
are used, it must backspace twice to 
account for having read a record ahead. 
Before backspacing an output data set all 
WRITE requests are checked and an endfile 
mark is written by issuing a T-CLOSE. If 
the record form is V, it reads the record 
and examines the Segment Descriptor Word to 
determine if it has found the first seg- 
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ment. If it has, it issues another back- 
space. If it has not found the first 
segment, 2 backspaces are issued until the 
first segment is obtained, in which case it 
need only issue a final backspace. 

For FB and VB records it must keep track 
of the location within the block of the 
record it wants. For the case of blocked 
records a BACKSPACE statement does not 
necessarily imply issuing a physical back- 
space request. A physical backspace is 
only required when the preceding logical 
record desired is in the block preceding 
the block presently in the buffer. 
IHCFIOSH/IHCEFIOS determines the length of 
the block read by subtracting the residual 
count in the CCW from the DCB blocksize. 
This information is used in calculating the 
proper logical record in the buffer to 
satisfy the FORTRAN BACKSPACE. Spanned 
records may require searchinq back through 
more than one physical record. 

Control is returned to IHCFCOMH/ 
IHCECOMH, which returns to the main 
program. 



REWIND 



ERROR HANDLING 



The library is designed to handle the 
following error conditions: 

• some compiler-detected source statement 
errors 



• library-detected errors 

• some program interrupts 

module 



• scheduled load 
termination 



abnormal 



• some user-defined and user-detected 
errors (only if extended error handling 
has been selected) 

Library operations for interrupts and for 
errors it detects itself depend on whether 
the extended error handling facility was 
selected at program installation time. 

The following library modules are con- 
cerned primarily with error handling: 

• IHCADJST 

• IHCERRM 

• IHCFINTH/IHCEFNTH 



The compi Ler-generated ob-ject code 
passes control to the FRWND section of 
IHCFCOMH/IHCECOMH, which passes control to 
IHCFIOSH/IHCEFIOS. 

IHCFIOSH/IHCEFIOS issues a CLOSE macro 
with the REREAD option for the indicated 
data set. This has the effect of rewinding 
it. A FREEPOOL macro is issued to release 
the buffer space. Control returns through 
IHCFCOMH/IHCECOMH to the main program. 



END- FILE 



• IHCFOPT 

• IHCIBERH 

• IHCSTAE 

• IHCTRCH/IHCETRCH 

• IHCUOPT 

In addition, IHCFCOMH/IHCECOMH is used for 
initialization, loading, and termination; 
IHCFCVTH is used for converting error mes- 
sage data; and IHCFIOSH/IHCEFIOS is used 
for printing error messages out. 



Control is passed by the compiler- 
generated object code to the FEOFM section 
of IHCFCOMH/IHCECOMH, which passes control 
to IHCFIOSH/IHCEFIOS. 

If the previous operation for this data 
set was a read, IHCFIOSH/IHCEFIOS sets the 
DCBOFLGS bit to dummy a write operation. 
It issues a CLOSE macro with type T, This 
effects the writing of the end-of-file 
mark. (A *T-CLOSE' rather than a full 
CLOSE is issued in order to handle any 
subsequent BACKSPACE requests. ) A FREEPOOL 
macro is issued to release the buffer 
space. Return is through IHCFCOMH/IHCECOMH 
to the compiler-generated code. 



COMPILER- DETECTED ERRORS: IHCIBERH 



When the compiler examines and trans- 
lates the user* s source statements, it may 
recognize one to be faulty, and nonexecut- 
able. At the corresponding location in the 
object code, the compiler inserts a branch 
to the library program IHCIBERH. The load 
module then executes in its usual fashion 
up to this point, when IHCIBERH gains 
control. 

If the faulty statement has an Internal 
Statement Number (ISN), IHCIBERH translates 
it into hexadecimal and inserts it into its 
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error message--230. It also picks up the 
name of the user routine containing the 
faulty statement, and adds it to the mes- 
sage. After IHCERRM is utilized to have 
the message printed out, IHCIBERH goes to 
the IBEXIT section of IHCFCOMH/IHCECOMH to 
have load module execution terminated. 



PROGRAM INTERRUPTS 



Part of the library's initialization 
procedure is to issue a SPIE macro instruc- 
tion, informing the system that the librarv 
wishes to gain control when certain program 
interrupts occur. The SPIE, issued by 
IHCFCOMH/IHCECOMH, specifies library con- 
trol for the following interrupts: 

6--specification* 

9--f ixed-point divide 
ll--decimal divide 
12--exponent overflow 
13--exponent underflow 
15-- float ing-point divide 

The exit routine address specified for all 
of the above is ARITHtt, the beginning of 
IHCFINTH/IHCEFNTH. (If interrupts 2, 3, 4, 
5, or 7 occur for the load module, the 
system beqins abnormal termination proces- 
sing. Codes 8, 10 and 14 are disabled when 
the task gains control, so these interrupts 
never occur. ) 

IHCFINTH/IHCEFNTH receives control from 
the system, which passes the address of the 
Program Interrupt Element (PIE) in register 
1. IHCFINTH/IHCEFNTH first saves the 
interrupted program's registers 3-13 (the 
system saves only 14-2 in the PIE). 
IHCFINTH/IHCEFNTH next examines the old 
Program Status Word (PSW) in the PIE to see 
if the interrupt was precise or imprecise, 
and, if the latter, whether single or 
multiple. (Imprecise interrupts are 
explained more fully in the publication IBM 

System/ 360 Op erating System : Supervisor 

and Data Manage ment Services, Order No. 

GC28-6646.) This information is inserted 
in the error message-- 210. The specific 
interrupt type(s) is then determined. 



A ction for Interrupts 9, 11, 12, 13, and 15 



IHCFINTH/ r HCEFNTH sets the switch OVFIND 
or DVCIND in IHCFCOMH/IHCECOMH to indicate 
that one of the three divide checks or 



♦Issued only if the user selected the 
boundary alignment option at program 
installation time. 



exponent overflow or underflow has 
occurred. (These switches are referenced 
bv the routines IHCFOVRR and THPFrv./r - ?? ». 
When extended error handling is not in 
effect, IHCFINTH takes the following corre- 
ctive actions: 

9--nothing 
ll--nothing 

1 S- — i -f f ho r^r^a v- a +- -i r^r\ -i c* D D / c\ r, 4- u , 

answer register (s) is set to 0.0; 
if the operation is X.Y/0.0 
<X.Y*0.0), the answer register (s) 
is set to the largest possible 
floating-point number 

"\ 0— — +• HO rOCIll f »r>,-Tio4-0>~/r-^ -Jr- r-r~.i- t~ ^ 

the largest possible floating-point 
number 
13--the result register(s) is set to 
0.0; if the underflow resulted from 
an add or subtract, operation, the 
condition code in the old PSW is 
set to 0. 

Note that for corrective actions with 12, 
13, and 15, it is necessary for IHCFINTH to 
first determine if the faulty instruction 
contains single or double precision 
operands. 

IHCFCVTH is called (twice) to convert 
the error message contents, and IHCFIOSH is 
called to print it out. Then IHCFINTH 
returns to the system interrupt handler, 
and load module execution eventually 
resumes at the instruction following the 
one that caused the interrupt. 

When extended error handling has been 
selected, IHCERRM is called to determine if 
the user desires his own corrective action 

f Q r- +- h i < ; prrr^v^ ( T h 1 S nrnrr-Hnr ( i ; 

described in the section "Extended Error 
Handling" be-low.) If no user action ir; 
specified, the standard actions described 
above are followed. In either instance, 
IHCERRM has the error message printed out. 



Action_f or_I_nterrupt_6 



When a specification interrupt has 
occurred, IHCFINTH/IHCEFNTH loads IHCADJST, 
if not already loaded. After preparing the 
error message, it branches to INCADJST 
passing the PIE and other information. 

There is a great variety of error condi- 
tions that can cause a specification inter- 
rupt. (They are explained in the publica- 
tion IBM System/3b0: Pri nciples of Opera- 
tion , Order No. A22-6821.) IHCADJST is 
designed to correct only one--the misalign- 
ment of operand data in core. For any 
other condition, IHCADJST causes an abnor- 
mal termination by cancelling the SPIE, 
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backing up the PSW pointer to the instruc- 
tion that caused the original interrupt, ♦ 
and returning to the system. 

When IHCADJST determines that it has a 
data boundary alignment problem to correct, 
it calls IHCFINTH/IHCEFNTH to have the 
error message (210) written out. Next 
IHCADJST issues a new SPIE, for protection 
(U) and addressing (5) exceptions, so that 
if an interrupt occurs while it is trying 
to fetch a copy of the operand data, its 
own special section-- PAEXCPT — will gain 
control. If one of these exceptions does 
occur, PAEXCPT calls IHCFINTH/IHCEFNTH to 
have the error message written, and then 
causes abnormal termination as described 
above. 

After IHCADJST has properly aligned the 
data in a temporary storage location and is 
ready to try to re-execute the oriqinal 
instruction, it issues yet another SPIE 
(overlaying the previous) for interrupts 4, 
7, 9, 11, 12, 13, and 15. If re-execution 
of the original instruction is successful, 
and the Rl field of the instruction re- 
executed was 14, 15, 0, or 1, IHCADJST puts 
the new contents of that register into the 
PIE. If the condition code was changed by 
the re-execution, the new condition code is 
put into the PSW located in the PIE. If 
the instruction re-executed was a ST, STE, 
or STD, the data is moved to the correct 
location in the load module. The original 
load module SPIE is re-established, and 
control is returned directly to the super- 
visor, rather than via IHCFINTH/IHCEFNTH. 
Note that the correction of data misalign- 
ment is only temporary; the permanent loca- 
tions of user variables remain the same. 

If re-execution of the original instruc- 
tion causes a second interrupt, control is 
given to EXCPTN in IHCADJST. For code 7, 
IHCFINTH/IHCEFNTH is called to have the 
error message written, and IHCADJST then 
causes abnormal termination in the manner 
described above. For the other exceptions, 
the original PIE is reconstructed, the 
original SPIE re-established, and- control 
passed back to IHCFINTH/IHCEFNTH to process 
this new interrupt in its usual fashion. 



LIBRARY- DETECTED ERRORS 



For example, most of the mathematical rou- 
tines check to see if the arguments are 
within specified ranges; IHCFCVTH, in some 
cases, sees whether the data it is asked to 
convert is actually in the form specified. 

When a library routine finds an error, 
it sets up a branch to IHCERRM. If 
extended error handling has been selected 
for the library, this is a separate module. 
If not, it is simply the entry point name 
for module IHCTRCH (and module IHCERRM does 
not exist). Without extended error han- 
dling, library-detected errors are almost 
always treated as terminal conditions. 



Without Extended Error Hand ling 



IHCTRCH is passed the number of the 
error condition and the message if one is 
to be printed for this particular case.* 
IHCTRCH' s functions are to have the error 
message printed and, more significantly, to 
create the traceback map and have it 
printed. IHCTRCH employs IHCFCVTH to con- 
vert information to printable decimal and 
hexadecimal format, and IHCFIOSH to do the 
actual printing. Then IHCTRCH calls the 
IBEXIT section of the IHCFCOMH to terminate 
load module execution. Condition 218 is an 
exception if the user has specified an ERR= 
parameter on his READ source statement. In 
this case, IHCTRCH picks up this address 
from IHCFCOMH and passes control to it. 

The traceback information printed con- 
sists of routine names in the load module 
internal calling sequence, the ISN of each 
branch instruction, and each routine's 
registers 14-1. In most cases, the map 
beqins with the routine that called the 
library module that detected the error, 
then lists the routine that called that 
caller, and so on back to the compiler- 
generated main program. In the case of the 
mathematical routines, however, the trace- 
back map begins with that mathematical 
routine detecting the error. IHCTRCH gets 
the map information by using register 13 as 
a starting point and working its way back 
through the linked save areas. Because 
some library routines (e.g., IHCFCOMH) do 
not use standard saving procedures, the 
tracing can become rather complicated. 



A number of the library routines 
examine their operational data for flaws. 



♦In the case of instruction misalignment, 
when it is determined the next instruction 
is also misaligned and will cause abnormal 
termination just as well, the PSW pointer 
is not changed. 



IHCTRCH terminates the trace when 
finds it has done one of three things: 



it 



1. 



reached the compiler-generated main 
routine 



♦Errors 211-211, 217, 219, 220, and 231-237 
have only IHCxxxI printed out, without any 
text. 
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2. reached 13 levels of call 



Codes u and 12 



3. found a calling loop 

In the second and third cases, it prints 
•TRACEBACK TERMINATED 1 f and in all cases 
prints the main program entry point. 

IHCTRCH goes immediately to the IBEXIT 
section of IHCFCOMH for termination if it 
is entered a second time. This can happen 
if an input/output error occurs while 
IHCFIOSK is trying to print IHCTRCH ' s 
output. 



After using IHCFCVTH to convert the 
abnormal termination code (either system or 
user) and the load module PSW into hexade- 
cimal, IHCSTAE inserts them into its error 
messages (240). and issues the messages via 
WTO macro instructions. Then it returns to 
the supervisor, indicating (with a in 
register 15) the abnormal termination is to 
be completed. 



Codes and 8 



With Extended Error Handling 



When a library routine detects an error 
and extended error handling is available, 
it branches to the error monitor routine 
IHCERRM. The operation of this routine is 
explained below in the section "Extended 
Error Handling Facility." 



ABNORMAL TERMINATION PROCESSING 



When the load module has been scheduled 
by the system for abnormal termination, the 
library attempts to have any output buffer 
contents written out. 

During load module initialization, 
IHCFCOMH/IHCECOMH issues a STAE macro, spe- 
cifying that if the load module is ever 
scheduled for abnormal termination, the 
address EXITRTN1 in IHCFCOMH/IHCECOMH 
should be given control by the system. 

When EXITRTN1 does gain control, it 
loads IHCSTAE from the link library and 
branches to it, passing along the system 
input/output status codes it received. 
These are: 



Code (in 
Register 6) 





12 



Meaning 
Active input/output was 
guiesced and is restorable 

Active input/output was 
halted and is not restorable 

No active input/output at 
abnormal termination time 

No space available for work 
area 



IHCSTAE looks at this code and deter- 
mines which action it will take. 



After using IHCFCVTH to convert the 
abnormal termination code (either system or 
user) and the load module PSW into hexade- 
cimal, IHCSTAE inserts them into its mes- 
sages. Then, IHCSTAE returns to the super- 
visor, indicating with a U in register 15 
that a retry attempt (RETRY in IHCSTAE) is 
wanted. When this section gains control, 
it first issues another STAE macro instruc- 
tion specifying a new exit routine, so that 
in the event of a new abnormal termination 
condition arising, looping will not occur. 
Next, the system's STAE work area is tested 
to see whether there is active restorable 
input/output or no input/output active at 
all. If the former, SVC 17 is issued 
(RESTORE macro) to prepare for the resump- 
tion of the load module's input/output 
activity. 

In both cases, IHCERRM is called to 
print message 2U0 and a traceback map. 
Before calling IHCERRM, however, IHCSTAE 
searches through the chained save areas 
(beginning with the supervisor's) to deter- 
mine whether or not the abnormal termina- 
tion condition will prevent the traceback 
map from listing the routine causing the 
abnormal termination; if it will, IHCSTAE 
appends a statement to this effect in its 
error message. 

If extended error Handling is not in 
effect, IHCTRCH (entry point IHCERRM) exits 
to the IBEXIT section of IHCFCOMH/IHCECOMH. 
If extended error handling is in effect, 
IHCERRM returns to IHCSTAE, which calls the 
IBEXIT section of IHCFCOMH/IHCECOMH. The 
IBEXIT section calls IHCFIOSH/IHCEFIOS to 
complete pending output reguests--that is, 
flush the buffers. (This is the normal 
load module termination process. ) 
IHCFCOMH/IHCECOMH finally returns to the 
supervisor. 

In the event of a second abnormal ter- 
mination condition occurring, control is 
given to EXITRTN3 in IHCSTAE. No retry is 
attempted. Messages are issued via WTO 
macro instructions, and control is returned 
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to the supervisor 
termination. 



:o complete abnormal 



three functions; 
ERRSET. 



ERRSAV, ERRSTR, and 



EXTENDED ERROR HANDLING FACILITY 



Three routines are centrally involved 
with extended error handling operation. 
They are: 

1. IHCUOPT— the option table 

2. IHCFOPT — the routine available to the 
user to reference and modify the 
option table 

3. IHCERRM — the routine that handles the 
errors according to the option table 
entries 

In addition, IHCETRCH is used to produce 
traceback maps. (When extended error han- 
dling has not been selected, IHCFOPT does 
not exist at all, IHCERRM does not exist as 
a module but only as an entry point in 
IHCTRCH, and IHCUOPT is only 8 bytes long.) 



Option Table-- IHCUOPT 



The format of the option table is illus- 
trated in Figures 22 through 2H. The table 
is referenced by displacement. It is 
sequential, but begins (after a preface) 
with error 207 — the lowest library error. 
There is an entry for every number from 207 
to 301, although the library recognizes no 
error condition for some of them -- e.g., 
239 (they are reserved for future use). 
Thus, the entry for error 258 is 
(258-207+l)x8 bytes into the table (allow- 
ing for the preface) . A few library error 
numbers (900-904) are not in the table. 

Certain values are inserted in the 
option table at system generation time. 
These original values are listed in Figure 
25. The user has the power to alter some 
of these values temporarily--that is, alter 
the copy in main storage for the duration 
of the load module — by using FORTRAN source 
statements. All the library error entries 
except 230 and 240 can be altered. 



Altering the Option Table — IHCFOPT 



The user's source statement requests for 
referencing and altering the option table 
are handled by IHCFOPT, which is branched 
to directly by the compiler-generated code. 
IHCFOPT has three entry points for its 



ERRSAV AND ERRSTR : These two functions are 
quite simple. They are passed an error 
number and an address. ERRSAV takes a copy 
of the requested error number entry from 
the table and places it at the indicated 
address. ERRSTR takes the new 8-byte entry 
from the indicated user address and inserts 
it in the table, overlaying the' original 
entry. 

ERRSAV and ERRSTR both first check to 
see that the error number is within the 
table range. If it is not, they issue 
message 902, employing IHCFCVTH and 
IHCEFIOS in the process. ERRSTR also 
checks bit 1 of byte U of the old table 
entry to make sure modification is permiss- 
ible. If it is not, it issues message 903, 
with the help of IHCFCVTH and IHCEFIOS. 
Return is to the calling program in all 
cases. 

ERRSET: ERRSET also modifies table 
entries, but is more flexible than ERRSTR. 
It is passed either five or six parameters, 
and takes the following actions: 



• The error number: 



reference only. 



• A new limit count for entry field one : 

contents are moved in as is, unless the 
count is greater than 255, in which 
case the field is set to 0, or unless 
the count is 0, in* which case no action 
is taken. 

• A_new_messac[e °.2yDt for en try fiel d 

two: contents are moved in as is, 
unless they are negative or zero. If 
they are negative, the field is set to 
0; if they are 0, no action is taken. 

• Traceback reques te d or suppre sse d: if 
1, bit 6~of entry field four is turned 
off; if 0, it is turned on; if any 
other number, no action is taken. 

• A user exit routine address, or absenc e 

thereo f, l2I__§HtIY field five: the 

value is moved in as is. 



• (Optional parameter) - Either an error 
number higher than one 
parameter, or, if the fir 



is error 



212, 



a reques 



i n the first 
§ t pa ra mete r 
t for print 



control 



the first 



entries from the lower 
higher are altered as indi 
second case, if a 1 , bit 
four is set to 1 , if not 
set to 0. 



case, all 

number to the 

cated; in the 

of field 

a 1 , it is 



ERRSET checks to make sure that the error 
number entry or entries indicated are 
within the table range. If not, it issues 
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message 902, using IHCFCVTH and IHCEFIOS. 
ERRSET also checks to make sure that the 
entry or entries permit modification. If 
they do not, it issues message 903 using 
IHCFCVTH and IHCEFIOS. 



monitor issues a message reporting on this 

caller, passing the correction code. r Ihe 
caller either resumes its normal proces- 
sing, or does its standard correction 
before continuing. 



Error Monitor-- IHCERRM 



The error monitor 
following three cases: 



is called in the 



1. When a library module has discovered 
an error condition during its proces- 
sing (entry point IHCERRM) 

2. When the user's program has detected 
one of the user-defined errors (302- 
899) and wishes to handle it according 
to his option table entry (entry point 
ERRMON) 

3. During normal load module termination 
processing, to give the error count 
summary (entry point IHCERRE) 

In the first two cases, the error monitor 
consults the corresponding entry in the 
option table IHCUOPT to determine what 
actions it will take for this particular 
error condition. 

After using the error number passed to 
it to locate the corresponding option table 
entry, the error monitor updates the error 
count field and compares it to the limit 
field. If the limit is now exceeded, it 
begins the termination process. This 
involves having IHCEFIOS print out message 
900 and the error message passed by the 
caller (if the option table indicates it is 
desired) , and having IHCETRCH produce the 
traceback map (if the option table so 
indicates). Finally, the IBEXIT section of 
IHCECOMH is giVen control. (The error 
monitor may be entered again to give the 
error summary. See "Error Summary.") 

If the error count limit is not yet 
exceeded, the error monitor has the caller 
error message and the traceback map pro- 
duced (if the table so indicates), using 
IHCEFIOS and IHCETRCH, respectively. Then 
it sees whether or not a user exit routine 
is specified. If it is, IHCERRM branches 
to it passing along data supplied by the 
routine that detected the error. The 
nature of this data depends on the error 
detected. 

The user routine is required to return 
to the error monitor, indicating that it 
has either performed corrective action 
itself (a 1 in the first parameter), or 
wants standard library corrective action (a 
in the first parameter). The error 



If the error monitor finds no user exit 
address, it returns to the caller request- 
ing standard correction. 

SPECIAL CONDITIONS : The error monitor will 
not allow recursive usage, i f it is 
entered a second time before it*. current 
processing is finished, it issues message 
901 and begins the termination procedure. 
The error monitor also checks to make sur- 
the error number specified is within the 
option table range; if it is not, it issues 
,,essage 90 2. 

The error monitor performs an additional 
step when it finds the error to be 218. In 
this case, after going to the user exit 
routine if there was one, IHCERRM deter- 
mines from IHCECCMH if the user has spec- 
ified an ERR= address on his READ source 
statement. If so, IHCERRM branches to it. 

For error 218, the error monitor issues 
a FPEEMATN macro instruction to free the 
message area the calling routine acquired. 



ERROR SUMMARY : 
IHCERRE) simply 
table, finding 
errors have occ 
execution, and 
and their accumu 
sage. It uses 
IHCEFIOS l or pi" 
identified an 
object error uni 



The summary routine (entry 
loops through the option 

those entries for which 
urred during load module 

putting the error numbers 
lated counts in the mes- 
IHCFCVTH for conversion and 
inting. II IHCEFIOS has 

error condition for the 
t, the summary is skipped. 



Fxt ended Er ror Handling Trackback — IHCETRCH 



IHCETRCH performs in the same manner as 
IriCTRCH, with these three exceptions: 

1. IHCETRCH is called by IHCERRM, rather 
than directly by the error-detecting 
routi ne. 

2. IHCETRCH does not have the error- 
detecting routine's message printed 
out, since this is done by IHCERRM. 

3. IHCETRCH can also be called by the 
user, through a source statement call- 
ing its entry point ERRTRA. A trace- 
back requested in this way is not 
necessarily connected with any error 
condition. IHCETRCH returns to the 
user program. 
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Table 11. IHCFCVTH Subroutine Directory 



|Subroutine| Function 


| FCVAI 


Reads alphameric data. 


| FCVAO 


Writes alphameric data. 


1 FCVCI 


Reads complex data. 


| FCVCO 


Writes complex data. 


j FCVDI 


Reads double precision data with an external exponent. 


1 FCVDO 


Writes double precision data with an external exponent. 


| FCVEI 


Reads real data with an external exponent. 


| FCVEO 


Writes real data with an external exponent. 


| FCVFI 


Reads real data without an external exponent. 


| FCVFO 


Writes real data without an external exponent. 


| FCVGI 


Reads general type data. 


| FCVGO 


Writes general type data. 


| FCVII 


Reads integer data. 


| FCVIO 


Writes integer data. 


| FCVLI 


Reads logical data. 


| FCVLO 


Writes logical data. 


| FCVZI 


Reads hexadecimal data. 


j FCVZO 


Writes hexadecimal data. 



L J. «. 



CONVERSION 



MATHEMATICAL ROUTINES 



Routine IHCFCVTH, the library conversion 
routine, is called by IHCFCOMH/IHCECOMH to 
convert user input/output data under FORMAT 
control, by IHCNAMEL to convert user input/ 
output data under NAMELIST control, and by 
service routines (such as IHCFDUMP and 
IHCDBUG) and error handling routines (such 
as IHCERRM and IHCTRCH) to convert output 
data into printable (EBCDIC) hexadecimal 
and/or decimal form. 

IHCFCVTH is divided into a number of 
subroutines (see Table 11). Each subrou- 
tine is designed to convert a particular 
type of input or output data. The library 
routine calling IHCFCVTH selects which con- 
version operation it wants, and branches to 
the appropriate subroutine. The calling 
routine passes the address of the existing 
data item, the address at which to place 
the result, the length, scale factor, and 
decimal point location of the existing data 
item, and other related information. 

The subroutine then converts and moves 
the data item, and returns to its caller. 



MATHEMATICAL AND SERVICE ROUTINES 



The library contains a large number of 
mathematical routines, and some service 
routines. When a particular routine has 
been requested by the user in his source 
program (by entry point name), or when the 
compiler has recognized an implicit need 
for a mathematical function, it is branched 
to directly from the compiler-generated 
code. 



The mathematical routines are generally 
independent of the other library programs 
(except when they detect errors or cause 
arithmetic- type program exceptions) . They 
perform their calculations, possibly with 
the assistance of another mathematical rou- 
tine or two, and return .directly to the 
compiler-generated code. The internal 
logic of these routines is documented in 
the publication IBM System/360 Operating 
System; FORTRAN IV Library— Mathematical 

and Service Subprograms, Order No. GC28- 

6818, under the section "Algorithms." 



SERVICE SUBROUTINES 



IHC FDVCH (Entry Name DVCHK) 



The function of IHCFDVCH is to test the 
status of the divide check indicator switch 
(DVCIND—located in IHCFCOMH/IHCECOMH) and 
return an answer in the location specified 
in the call. This switch is turned on (set 
to X' FF' by the library's interrupt handler) 
when it finds a divide exception has 
occurred. IHCFDVCH inserts a 1 in the 
calling program's answer location if the 
switch is on, or a 2 if it is off.* The 
answer location is the argument variable in 



♦Before checking the switch, both IHCFDVCH 
and IHCFOVER issue the special no- 
operation BCR 15,0, which drains pipe-line 
models (e.g., Models 91 and 195) to 
ensure sequential execution. 
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the original FORTRAN statement CALL 
DVCHKCargi, Its address is pointed to 
Register 1 when IHCFDVCH gains control. 



by 



If the DVCIND switch is on, IHCFDVCH 
turns it off (set to X'OO*); if off, it is 
left off. IHCFDVCH returns to the calling 
program. 



IHCFOVER (Entry Name OVERFIJ 



IHCFOVER tests for overflow and under- 
flow, and performs in a manner similar to 
IHCFDVCH. The switch it tests is OVFIND ~ 
which is also found in IHCFCOMH/IHCECOMH, 
and set by the library interrupt handler. 
OVFIND set to X'FF' indicates overflow has 
occurred, X'OT indicates underflow, X'OO' 
indicates neither. IHCFOVER sets the call- 
er's answer location to 1 for overflow, 3 
for underflow, and 2 for neither. 



they get the address of the integer output 
section Of IHCFCVTH (FCVIO) from "iHCFCOMH/ 
IHCECOMH, and branch to it to have the 
error message contents converted. Then 
IHCFSLIT branches to IHCERRM (see the sec- 
tion on library-detected errors). 

If extended error handling is not in 
effect, IHCERRM goes to the IBEXIT section 
of IHCFCOMH/IHCECOMH to terminate lead 
module execution. If extended error han- 
dling is in effect, and IHCFSLIT, upon 
regaining control, finds the user did no 
special fixup, IHCFSLIT* s standard correc- 
tive action is as follows: 

SLITE: no action at all 
SLITET: answer returned to caller is 2; 
no switches are changed 



IH CFEXIT (Entry Name EXIT) 



If on, OVFIND is turned off; if off, 
left off. IHCFOVER returns to the calling 
program. 



IHCFSLIT (Entry Names SLITE, SL ITET) 



IHCFEXIT simply branches to the IBEXIT 
section of IHCFCOMH/IHCECOMH, which then 
terminates load module execution in its 
usual way. 



IHCFDUMP (Entry Names DUMP and PDUMP) 



IHCFSLIT performs two functions: sets 
the pseudo-Bense lights (entry SLITE), and 
reports back to the caller on their status 
(entry SLITET). 

The four pseudo-sense lights are four 
bytes in IHCFSLIT labelled SLITES. These 
switches are not connected with any system 
switches, nor directly with any system 
condition. They are internal to the load 
module, and have meaning only to the FOR- 
TRAN user, who, employing IHCFSLIT, both 
sets and interprets them. 



IHCFDUMP' s function is to have printed 
out on the object error unit the storage 
contents specified in the call, in the 
format specified. The absolute storage 
location of each request is also printed 
out. 

The call parameters are in this form: 



DC 


AL4(A1> 


DC 


AL4(Bl) 


DC 


ALU(Fl) 



SETTING THE SWITCHES : SLITE either turns 
off all the switches (sets them to X'OO 1 ), 
or turns on one (sets it to X'FF'). When 
the argument passed to it is 0, SLITE turns 
all switches off. When the argument is 
1-4, it turns on the corresponding switch-- 
that is, an argument of 2 turns on the 
second (from left) byte of SLITES. 

TESTING THE SWITCHES : SLITET is passed two 
parameters, the first indicating the parti- 
cular switch to be tested, and the second 
pointing to a location for its answer. 
SLITET returns the answer 1 if it finds the 
switch on, and 2 if it is off. If it finds 
the switch on, it turns it off; if it is 
off, it is left off. 

ERROR CONDITIONS : Both SLITE and SLITET 
first test their arguments for correct 
range. For SLITE, this must be 0-U; for 
SLITET, 1-4. When an argument is in error, 



DC ALU (An) 
DC AL4(Bn) 
DC XLl'FF',AL3(Fn) 

where A and B are addresses of the outer 
limits of the storage to be dumped, and F 
is either the integer format number itself, 
or the address of a location containing the 
number. The specifications are: 

= hexadecimal 

1 = LOGICAL+1 

2 = LOGICAL* 4 

3 = INTEGER* 2 

4 = INTEGER* 4 

5 = REAL* 4 

6 = REAL*8 

7 = COMPLEX* 8 

8 = COMPLEX* 16 

9 = literal 
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If the user passes any other number, 
IHCFDUMP chooses (hexadecimal) as a 
default format. 



The procedure is identical for DUMP and 
PDUMP , except for two things: 

• if DUMP finds an input/output correc- 
tive action routine is in process, it 
functions normally; PDUMP, however, 
instead of processing, goes to section 
ERR9 0U in IHCFCOMH/IHCECOMH to print 
error message 90U and to terminate load 
module execution. (An input/output 
corrective action routine in process is 
indicated by the first byte of SAVE in 
IHCFCOMH/IHCECOMH set to anything other 
than X' FF' . ) 

• after normal processing, DUMP goes to 
the IBEXIT section of IHCFCOMH/IHCECOMH 
to terminate load module execution; 
PDUMP, however, returns to the caller 
for continued execution. 

IHCFDUMP uses IHCFCVTH and IHCFIOSH/ 
IHCFFIo:; to assist in its operations. 
After qetting the address of IHCFIOSH/ 
IHCEFIOf; from IHCFCOMH/IHCECOMH, IHCFDUMP 
branches to initialize for printing. It 
next move:-, a section to be dumped into the 
IHCFIOSH/1HCEFIOS buffer, and determines 
the format type requested.* It passes this 
information to the FCVZO part of IHCFCVTH 
('Z' output), for conversion. Lastly, it 
branches to IHCFIOSH/ IHCEFIOS to print out 
the line. IHCFDUMP loops in this manner 
until it exhausts the calling list. 

If, during the printing, IHCFIOSH/ 
IHCEFIOS indicates it has encountered an 

input/output error, IHCFDUMP skips the re- 
mainder of its work. 



IHCDBUG 



IHCDBUG has a single entry point — 
DEBUG#--which is the head of a branch 
table. This table is outlined in Table 12. 

Table 12. IHCDBUG Transfer Table 

r 7 T 1 



Dis- 


Branches 






place- 


to 






ment 


Section 


Function of 


Routine 













TRACE 


Pass label of statement 






to be traced 




U 


SUBTREN 


Pass subprogram name on 






entry 




8 


SUBTREX 


Pass 'RETURN' 
gram exit 


on subpro- 


12 


UNIT 


Initialize 


data set 






reference number for 






output 




16 


INITSCLR 


Pass data for 
variable 


initialized 


20 


INITARIT 


Pass data for 
array element 


initialized 


2U 


INITARAY 


Pass data for 
array 


initialized 


28 


SUBCHK 


Pass data on 
array element 


referenced 


32 


TRACEON 


Turn on trace 


switch 


36 


TRACEOFF 


Turn off trace 


switch 


UO 


DISPLAY 


Display refere 


need items 


UH 


STARTIO 


Begin input/output 






operation 




U8 


ENDIO 


End input/output 






operation 
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implement most 
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t out. IHCDBUG 
e IHCFCVTH (for 
to produce DIS- 
to obtain the 
number) , and 
to store user 



♦IHCFDUMP expects the format type requested 
to correspond to the format of the data in 
main storage. Therefore, asking it to 
print out an INTEGER variable in REAL 
format, for example, will result in a 
garbled dump. 



In addition to the 13 routines listed in 
the branch table, IHCDBUG uses the follow- 
ing subroutines: 

• OUTITEM, which puts a data item into 
DBUFFER 

• OUTNAME, which puts the name of an 
array or variable into DBUFFER 

• OUTINT, which converts an integer to 
EBCDIC 

• OUTFLOAT, which puts a floating-point 
number into DBUFFER 

• OUTBUFFER, which controls the output 
operation for DBUFFER 

• ALLOCHAR, which moves a character to a 
save area 

• FREECHAR, which extracts a character 
from a save area 

• OUTPUT, which transfers DBUFFER to 
IHCFIOSH/IHCEFIOS for printing 
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The following items in IHCDBUG are 
initialized to zero at load module execu- 



• DSRN, the data set reference number 

• TRACFLAG, the trace flag 

• IOFLAG, the input/output in progress 
flag 

• DATATYPE, the variable type bits 

Whenever information is assembled for 
output, it is placed in a 77-byte area 
called DBUFFER. The first character of 
this area is permanently set to blank to 
specify single spacing. The next seven 
chaiaclets die the string—DEBUG — to pro- 
vide a label for the output. 



of the various IHCDBUc; 



The functions 
sections are: 

TRACE 

If TRACFLAG is off, control is 
returned immediately to the caller. 
Otherwise, the characters 'TRACE* ate 
moved to DBUFFER, the section 0UT1NT 
converts the statement number to EBCD- 
IC and places it: in DBUFFER, and 
control is passed to OUTEUFFR. 

SUBTREN 

The characters 'SUBTRACE' and the name 
of the program or subprogram are moved 
to DBUFFER and a branch is made to 
OUTBUFFR. 

SUBTREX 

The characters 'SUBTRACE ♦ RETURN* ' are 
moved to DBUFFER and a branch is made 
to OUTBUFFR. 

UNIT 

The unit number argument is placed in 
DSRN and the routine returns to its 
caller. 

INITSCLR 

The data type is saved, the location 
of the scalar is computed, subroutine 
OUT NAME places the name of the scalar 
in DBUFFER, and a branch is made to 
OUTITEM. 

INITARIT 

This routine saves the data type, 
computes the location of the array 
element, and (via the subroutine OUT- 
NAME) places the name of the array in 
DBUFFER. It then computes the element 
number as follows: 

XXX=( (YYY-ZZZ)/AAA) +1 



where: 



XXX is element number 
YYY is element location 
ZZZ is first array location 
AAA is element size 



/. r r 

by the 
and a 

; rrn- 



and places a left parenthesis, the 
element number (converted to EECDIC by 
subroutine 0U1 INT), an J a right paren- 
thesis in DBUFFER following the array- 
name. A branch is then made to 

WU i X i Ci"i . 

INITARAY 

If IOFLAG is or, the character 
is placed in DBUFFER, followed 
address of the argument list, 
branch is made to OUTBUFFR. 
wise, a call to INITARIT i 
structed, and the routir.t 
through that call until a]] lo".cr,t.j 
of the array nave been prccenst ■-;!. 

SUBCHK 

The location of the arr«*y element i? 
computed. If it fa]ls within t. hr 
array boundaries, control is returned 
to the caller. If it is outside the 
array boundaries, SUPCHK places the 
characters 'SUBCHK* into DBUFFER, and 
computes the element number. OUTINT 
converts this number into EBCDIC and 
moves it into DBUFFER. OUTNAfcE moves 
the array name into DBUFFER. Finally, 
OUTBUFFR is called. 

TRACEON 

TRACFLAG is turned on (set to non- 
zero), and control returned to caller. 

TRACEOFF 

TRACFLAG is turned oft (sot to zero), 
and control returned to caller. 



DISPLAY 
If 



IOFLAG i: 



t he characters 



•DISPLAY DURING I/O SKIPPED' 

are moved to OUTBUFFR. Otherwise, a 
callinq sequence for the NAMELJST 
write routine (IHCNAMEL) is con- 
structed. If DSRN is equal to zero, 
the unit number for SYSOUT (in 
IHCUATBL+6) is used as the unit passed 
to the NAMELIST write routine. On 
return from the NAMED 1. ST write, this 
routine exits. 

STARTIO 

BYTECNT is set to 251 to indicate that 
the current area is full, the IOFLAG 
is set to x'RO' to indicate that 
input/output is in progress, the 
CURBYTLC is set to the address of the 
SAVESTR1 (where the location of the 
first main block will be), and the 
routine exits. (See the discussion of 
ALLOCHAR. ) 



END 10 



The IOFLAG is saved in TEMPFLAG and 
IOFLAG is reset to zero so that this 
section may make debug calls that 
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result in output to a device. If no 
information was saved during the 
input/output, this routine exits. 

If information was saved, section 
FREECHAR is used to extract the data 
from the save area and move it to 
DBUFFER. FREECHAR does this one 
character at a time until it finds a 
X'15', indicating the end of the line. 
It then calls OUTPUT to have DBUFFER 
written out. If FREECHAR finds a 
X'FF', indicating a full array, it 
calls INITARAY to move the array data 
to DBUFFER. 

If no main storage or insufficient 
main storage was available for saving 
information during the input/output, 
the characters 

•SOME DEBUG OUTPUT MISSING' 

are placed in DBUFFER after all saved 
information (if any) has been written 
out. The subroutine OUTPUT is then 
used to write out the message, and 
this routine returns to the caller. 

OUTITEM 

First, the characters ' = * are moved 
to DBUFFER. Four bytes of data are 
then moved to a work area on a double- 
word boundary to avoid any boundary 
alignment errors when registers are 
loaded for logical or integer conver- 
sion. A branch on type then takes 
place. For fixed-point values, the 
routine OUTINT converts the value to 
EBCDIC and places it in DBUFFER. A 
branch to OUTBUFFR then takes place. 

For floating-point values, subroutine 
OUTFLOAT places the value in DBUFFER. 
A branch to OUTBUFFR then takes place. 

For complex values, two calls to OUT- 
FLOAT are made — first with the real 
part, then with the imaginary part. A 
left parenthesis is placed in DBUFFER 
before the first call, a comma after 
the first call, and a right parenthe- 
sis after the second call. A branch 
to OUTBUFFR then takes place. 

For logical values, a T is placed in 
DBUFFER if the value was nonzero; 
otherwise, an F is placed in the 
DBUFFER. A branch to OUTBUFFR then 
takes place. 

OUTNAME 

Up to six characters of the name are 
moved to DBUFFER. OUTNAME returns to 
its caller upon encountering a blank. 



value (passed in R2) is equal to zero, 
the character '0* is placed in DBUFFER 
and the routine exits. If it is less 
than zero, a minus sign is placed in 
DBUFFER. The value is then converted 
to EBCDIC and placed in DBUFFER with 
leading zeros suppressed. The routine 
then exits. 

OUTFLOAT 

This subroutine calls the' library 
module IHCFCVTH to put the floating- 
point number out under G conversion 
with a format of G1U.7 for single 
precision and G23.16 for double 
precision. 



OUTBUFFR 

If the 
indicatin 
routines 
user inp 
must wait 
This mea 
store its 
being. 
ALLOCHAR- 
DBUFFER, 
to indica 



IOFLAG in IHCDBUG is set, 
g the library input/output 

are busy handling some other 
ut/output request, IHCDBUG 

until the routines are free, 
ns it must accumulate and 

output data for the time 
To do this, OUTBUFFR calls 
-once for each character in 
and one final time with X'15' 
te the end of the line. 



OUTINT 

This is a closed subroutine. 



If the 



OUTBUFFER checks the IOFLAG. If it is 
not set, it then checks the input/ 
output corrective action switch in 
IHCFCOMH/IHCECOMH. If this switch 
indicates an input/output corrective 
action is in process, OUTBUFFER calls 
the ERR90H section of IHCFCOMH/ 
IHCECOMH to terminate execution. If 
there is no input/output corrective 
action in process, OUTBUFFR calls OUT- 
PUT for normal output processing. 

ALLOCHAR 

ALLOCHAR saves the data passed to it 
in 256-byte blocks of storage obtained 
by GETMAIN macro instructions. When 
BYTECNT is equal to 251, indicating 
the current block is full, a new 
GETMAIN is issued. If no storage was 
available, an X*07', indicating the 
end of core storage, is placed in the 
last available byte position, IOFLAG 
is set to full, and the routine exits. 
Otherwise, the address of the new 
block is placed in the last four bytes 
of the previous block, preceded by 
X'37' indicating end of block with new 
block to follow. CURBYTLC is then set 
to the address of the new block and 
BYTECNT is set to zero. The character 
passed as an argument is then placed 
in the byte pointed to by CURBYTLC, 
one is added to both CURBYTLC and 
BYTECNT, and the routine exits. 

FREECHAR 

This is a closed subroutine. If the 
current character extracted is X'37', 
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indicating a new block follows the 
current block, the next four bytes are 
placed in CUREYTLC and the current 
block is freed. If the current 
character is X'07' # indicating the end 
of core storage, the block is freed 
and a branch is made to the end 
input/output exit. Otherwise, the 
current character is passed to the 
calling routine and CURBYTLC is incre- 
mented by one. 

OUTPUT 

If DSRN is zero, the SYSOUT unit 
number is obtained from IHCUATBL +6, 
A call is then made to the initializa- 
tion section of IHCFIOSH/IHCEFIOS. 
Upon return, OUTPUT transfers DBUFFER 
to the IHCFIOSH/IHCEFIOS buffer, and 
calls the write section of IHCFIOSH/ 
IHCEFIOS. If IHCFIOSH/IHCEFIOS indi- 
cates an input/output error, IHCDPUG 
ignores the rest of the current DEBUG 
request. 



TERMINATION 



Every compiler-generated program ends 
with a branch to the FSTOP section of 
IHCFCOMH/THCECOMH. This section is a ter- 
mination procedure that: 

• puts the return code passed it into 
register 15. 

• if extended error handling has been 
specified, calls IHCERRM to have the 
error summary produced. 

• calls IHCFIOSH/IHCEFIOS to close 
sequential files (IHCFIOSH/IHCEFIOS in 
turn calls IHCDIOSE/IHCEDIos to close 
any direct access files). 

• deletes IHCADJST, if it has been 
loaded. 

• cancels the SPIE, restorinq the old 
PICA if there vas one. 

• either 



a. 



b. 



cancels the STAE and returns to the 
supervisor if IHCSTAE has not been 
loaded (i.e., no abnormal termina- 
tion has been scheduled) 
cancels the STAE and issues an 
ABEND macro instruction if entry is 
from IHCSTfE 



The above termination procedure is used 
both for the normal end of load module 
execution and for most instances of 
library-initiated premature termination. 
The only exceptions occur in IHCSTAE, 



when control is sometimes returned directly 
to the supervisor, bypassing the above 



UBLOCK01 field 6 
DSRN01 default valu3s 7 



Unit number (DSRN) I j 

being used for current j | 

operation j n 1 x 16 |i bytes 



._ T T x_ T + ., 

fcKKMSG j READ | PRINT | PUNCH | j 
DSRN 2 j DSRN 3 j DoRN u | DSRN 5 |U bytes I 
X J. x 



-4" 



LIST01 field 8 



|U bytes j 

---i- H 

!' bvt «-•<-. i 

— H \ 

| a bytes) 

- — 4 -I 



UBLOCKn field 6 

DSRNn default values 7 

LISTn field 8 



-f~ 



|" byte 
.... + _..- . .. H 

| 8 bytes 

+ 

|*4 bytes, 

' X 

r n is the maximum number of units that 
can be referred to by the FORTRAN LOAD 
MODULE. The size of the unit table is 
equal to (R ♦ n x lb) bytes. 

2 Unit number (DSRN) of error output 
device. 

3 Unit number (DSRN) of input device for a 
read of the form: READ b, list. 

"Unit number (DSRN) of output device for 
a print operation of the form: PRINT 
b, list. 

'Unit number (DSRN) of output device for 
a punch operation of the form: PUNCH 
b, list . 

6 The UBLOCK field contains either a 
pointer to the unit block constructed 
for unit number n if the unit is being 
used at object time, or a value of 1 if 
the unit is not being used. 

7 This field contains DCB default values, 
which are inserted into the DCB if the 
user does not supply them. They are 
detailed in Figure 19. Only IHCFIOSH/ 
IHCEFIOS gets its default values from 
this field. 

8 If the unit is defined as a direct 
access data set, the LIST field contains 
a pointer to the parameter list that 
defines the direct access data set. 
Otherwise, this field contains a value 
of 1. 



Figure 18. 



IHCUATBI '. The Data Set Assign- 
ment Tatle 
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Table 13. DCB Default Values 



Sequential Data Sets 
T T T . 



Direct Access Data Sets | 
7 7 ^ 



ddname 




RECFM 1 




LRECL a 




BLKSIZE 




DEN 




BUFNO 




RECFM 


| LRECL or | 
j BLKSIZE | 


BUFNC 


FT03Fxxx 




U 




__ 




800 




2 




2 




FA 


(The value | 


2 


FTOSFxxx 




F 




80 




80 




-_ 




2 




F 


| specified as the| 
j maximum size of \ 


2 


FT06Fxxx 




UA 




1 32 




133 




-- 




2 




F 


|a record in the | 
j DEFINE FILE | 


2 


FT07Fxxx 




F 




80 




80 




-- 




2 




F 


| statement. | 


2 


all others 




U 




-- 




800 




2 




2 




F 




2 



1 For records not under FORMAT control, the default is VS. 

2 For records not under FORMAT control, the default is 4 less than shown. 



< 2 bytes > < 2 bytes 



• > <- byte -> <- byte -> <- 



2 bytes 



| not used | BLKSIZE | RECFM | 
i x x r x. 

Figure 19. DSRN Default Value Field of IHCUATBL Entry 
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u 


bytes 


Address of Buffer 2 










T 
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Current buffer pointer 








(Note) 
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u 


bytes 


Record displacement (RErpTR) 




(Note) 
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__x 
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bytes 


Address of last DECB 










T 
_ X 
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bytes 


Mask for alternating bu 


ff 


ers 






T 
--T — 


<4 


bytes 



h 



r- 



DECB1 skeleton section 



x 



^ T T 

Logical record length | Not used | L1VECNT1 
, x x 



DECB2 skeleton section 
Work space 



t t 

| Not used j LIVECNT2 
x x 



DCB skeleton section 



•I 
20 bytes 

U bytes 



20 bytes 

M bytes 

88 bytes 



Figure 20. Format of a Unit Block for a Sequential Access Data Set 



Housekeeping 
Section 



Note: Used only for 
variable- length 
and/or blocked 
records 



2U0 



• ABYTE. This field, containing the data 
set type passed to subprogram IHCFIOSH/ 
IHCEFIOS by IHCFCGMH/IHCECOMH, is set 
to one of the following: 



FO — Input data set which is to be 
processed under format control. 

FF — Output data set which is to be 
processed under format control. 

00 — Input data set which is to be 
processed without format control. 

OF — Output data set which is to be 
processed without format control. 



* BBYTE . This field contains bits that 
are set and examined by IHCFIOSH/ 
IHCEFIOS during its processing. The 
bits and their meanings, when on, are 
as follows: 

— exit to subroutine IHCFCOMH/ 

IHCECOMH on input/output error 

1 — input/output error occurred 

2 — current buffer indicator 

3 — not used 

4 — end-of-current buffer indicator 

5 — blocked data set indicator 

6 — variable record format switch 

7 — not used 



• CBYTE. 



This field also contains bits 



that are set and examined by subroutine 
IHCFIOSH/IHCEFIOS. The bits and their 
meanings, when on, are as follows: 

— data control block opened 

1 — data control block not T- closed 

2 — data control block not previously 

opened 

3 — buffer pool attached 

U — da'- a set not previously rewound 

5 — not used 

6 — concatenation occurring; reissue 

READ 

7 ~ data set is DUMMY 



• DBYTE. This field contains bits that 
are set and examined by IHCFIOSH/ 
IHCEFIOS during the processing of an 
input/output operation involving a 
backspace request. The bits and their 
meanings, when on, are as follows: 

-- a physical backspace has occurred 

1 — previous operation was BACKSPACE 

2 -- not used 

3 — end-of-file routine should retain 

buffers 

4-5 -- not used 

6 — END FILE followed by BACKSPACE 

7 -- not used 

• Address of Buffer 1 and Address of 
Buffer _2 . These fields contain poin- 
ters to the two input/output buffers 
obtained during the opening of the data 
control block for this data set. 



• Current Buffer Pointer. 



This field 



contains a pointer to the input/output 
buffer currently being used. 

• Record Offset (RECPTR) . This field 
contains a pointer to the current log- 
ical record within the current buffer. 

• Address of Last DECB . This field con- 
tains a pointer to the DECB last used. 

• Mask for Alternating Buffers. This 

field contains the hits which enable an 
exclusive OR operation to alternate the 
current buffer pointer. 

E>ECB_SKE LETON _SECTI ONS_XDECBl AND DECB2) : 

The DECB (data event control block) skele- 
ton sections are blocks of main storage 
within the unit block. They have the same 
format as the DECB constructed by the 
control program for an L format of an 
S-type READ or WRITE macro instruction (see 

the publication IBM Sy stem/360 Operating 

System : S upervisor and Data Management 

Macro Instructions , Order No. GC28-6647). 
The various fields of the DECB skeleton are 
filled in by subprogram IHCFIOSH; the com- 
pleted block is referred to when IHCFIOSH 
issues a read/write reguest to BSAM. The 
read/write field is filled in when the OPEN 
macro is being executed. 

Log ical Record Length: This is the LRECL 
of the current data set. It is inserted by 
IHCFIOSH/IHCEFIOS during its open exit 
routine. 

• LIVECNTl_and LIVECNT2. These fields 

indicate whether any input/output 
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operation performed for the data set is 
unchecked. (A value of 1 indicates 
that a previous read or write has not 
been checked; a value of indicates 
that the previous read or write opera- 
tion on that DECB has been checked. ) 

• Work Space . This field is used to 
align the logical record length of a 
variable record segment on a fullword 
boundary. 



DCB : The fields of this skeleton for DCB 
are filled in partly by IHCFIOSH/IHCEFIOS, 
and partly by the system as a result of an 
OPEN macro instruction by IHCFIOSH/IHCEFIOS 



1 1 not | 
IOTYPE |STATUSU| used j 

-L -L -L 


not 
used 


I 


4 


bytes 




RECNUM 




T 
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bytes 


_ T 

STATUSA j 
A__. 


CURBUF 
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bytes 




BLKREFA 
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bytes 


_ _ _ T 

STATUSB | 

_ JL 


NXTBUF 




f 

| 


4 


bytes 




BLKREFB 




1 
1 


4 


bytes 




DECBA 




t 
1 


28 


bytes 




DECBB 




1 
1 


28 


bytes 




DCB 




! 


ion 


bytes 



L , X J 

Figure 21. Format of a Unit Block for a 
Direct Access Data Set 

The meanings of the various unit block 
fields are outlined below. 



Bit Meaning 

1 error occurred 

2 two buffers are being used 

3 data control block for data 
set is open for BDAM 

4-5 10 -- U format specified in 
DEFINE FILE statement 

01 -- E format specified in 
DEFINE FILE statement 

11 -- L format specidied in 
DEFINE FILE statement 

6-7 not used 

Note : Subprogram IHCDIOSE refers only to 
bits 1, 2, and 3. 



RECNUM : This field contains the number of 
records in the data set as specified in the 
parameter list for the data SPt in a DEFINE 
FILE statement. It is filled in by the 
file initialization section after the data 
control block for the data set is opened. 



STATUSA : This field specifies the status 
of the buffer currently being used. The 
bits and their meanings when on are: 



Bit Meaning 

READ macro instruction has 
been issued 

1 WRITE macro instruction has 
been issued 

2 CHECK macro instruction has 
been issued 



IOTYPE : This field, containing the data 
set type passed to subprogram IHCDIOSE by 
the IHCFCOMH subprogram, can be set to one 
of the following: 

F0 — input data set requiring a format 

FF -- output data set requiring a format 

00 — input data set not requiring a 
format 

OF — output data set not requiring a 
format 

STATUSU : This field specifies the status 
of the associated unit number. The bits 
and their meanings when on are : 

Bit Meaning 
data control block for data 
set is open for BSAM 



3-7 



not used 



CURBUF : This field contains the address of 
the DECB skeleton currently being used. It 
is initialized to contain the address of 
the DECBA skeleton by the file initializa- 
tion section of IHCDIOSE after the data 
control block for the data set is opened. 

BL KREFA: This field contains an integer 
that Indicates either the relative position 
within the data set of the record to be 
read, or the relative position within the 
data set at which the record is to be 
written. It is filled in by either the 
read or write section of subprogram IHC- 
DIOSE prior to any reading or writing. In 
addition, the address of this field is 
inserted into the DECBA skeleton by the 
file initialization section of IHCDIOSE 
after the data control block for the data 
set is opened. 
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STATUSBs This field specifies the status 
of the next buffer to be used if two 
buffers are obtained for this data set 
during data control block opening. The 
bits and their meanings are the same as 
described for the STATUSA field. However, 
if only one buffer is obtained during data 
control block opening, this field is not 
used. 



NXTB UF ; This f 
the DECB skel 
buffers are obt 
block opening, 
tain the addres 
the file initi 
gram IHCDIOSE a 
for the data 
only one buffer 
control block 
used. 



ield contains the address of 
eton to be used next if two 
ained during data control 
It is initialized to con- 
s of the DECBB skeleton by 
alizaticn section of subpro- 
fter the data control block 

set is opened. However, if 
is obtained during data 

opening, this field is not 



bl.KREFB: The contents of this field are 
'.nc same as described for the BLKREFA 
* i<-' Id. It is filled in either by the read 
or the write section of subprogram lHrniOSE 
prior to any readinq or writ inq. In addi- 
tion, the address of this field is inserted 
into the DECBB skeleton by the file initia- 
lization section of IHCDIOSE after the data 
control block for the data set is opened. 
However, if only one buffer is, obtained 
during data control block opening, this 
; isj d : :• not. used. 

D ECBA S KELETON: This field contains the 
DECB (data event control block) skeleton to 
be used when reading into or writ inq from 
the current buffer. It is the same form as 
the DECB constructed by the control program 
for an L form of an S-type READ or WRITE 
mr-ero instruction under BDAM (see the pub- 
1 i ca t 1 on I BM Sy stem/ 3 b Ope rati ng_j j^sJjerrK 

sup_e rvi_s or and Dat a Manag eme nt 

IIl^^JJlitiD'l'i' Order No. CC28-b6<47 ) . 



Macro 



The various fields of the DECBA skeleton 
are tilled in by the file initialization 
section of subprogram IHCDIOSE after the 
data control block for the data set is 
opened,. The completed DECB is referred to 
when IHCDIOSE issues a read or a write 
request to BDAM. For each input/output 
operation, IHCDIOSE supplies IHCFCOMH with 
the address of and the size of the buffer 
to be used for the operation. 

DECBB SK ELETON: The DECBB skeleton is used 
when reading into or writing from the next 
buffer. Its contents are the same as 



described for the DECBA skeleton. The 
DECBB skeleton is completed in the same 
manner as described for the DECBA skeleton. 
However, if only one buffer is obtained 
during data control block opening, this 
field is not used. 



DCB SKELETO N: This field contains the DCB 
(data control block) skeleton for the asso- 
ciated data set. It is of the same format 
as the DCB constructed by the control 
program for a DCB macro instruction under 
BDAM (see the publication IBM Syst em/360 

O per ating System: Supervisor and Data 

Management Macro Instr uct ions ) . 



■8 bytes- 



PREFACE 


Entry 


for library error 


condition 


207 


Entry 


for library error 


condition 


208 


Entry 


for library error 


condition 


209 



.) 

Entry for library error condition 300 

4 

Entry for library error condition 301 

Optional entry for user error condition 

30 2 



Optiona 1 
303 


entry 


for 


user 


error 


condition 


. 


Optional 
n-1 


entry 


for 


user 


error 


condition 


Optional 
n 


entry 
(Note) 


for 


user 


error 


condition 



Note : The user can specify from none to 
598 of his own error conditions; 
thus n can be a maximum of 899. 



Figure 22. General Form of the Option 
Table (IHCUOPT) 
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< 






byte -> <- 


byte -> <- 


byte -> < — 


byte — > 


1 
1 


Field One 


1 
1 


Field | 
Two J 


Field | 
Three j 


Field | 
Four | 


Field | 
Five | 





Field Contents 

One: The number of entries in the option table. This is 9 5 plus the total number of 
user-supplied error conditions. 

Two: Bit one indicates whether boundary alignment was selected. l=yes; 0=no. (Bits 
and 2-7 are reserved for future use. ) 

Three: Indicates whether extended error handling was selected. X'FF'=no; x'00'=yes. 

Four: Contains a decimal 10. This is the number of times the boundary alignment error 
message will be printed when extended error handling has not been specified. 

Five: Reserved for future use. 

Figure 2 3. Preface of the Option Table (IHCUOPT) 



1111 
<- byte -> <- byte -> <- byte -> <- byte -> <- 



4 bytes 

Field Five 



Field 
One 



Field 
Two 



Field 
Three 



Field 
Four 



Field Contents 

One: The number of times the library should allow this error to occur before 

terminating load module execution. A value of zero means unlimited occurrence. 

(Trying to set the field to greater than 255 results in its being set to zero.) 

Two: The number of times the corresponding error message is to be printed before 
message printing is suppressed. A value of zero means no message is to be 
printed. 

Three: The number of times this error has already occurred in execution of the present 
load module. 

Four : Bit M eaning 

If control character is supplied for overflow lines, set to 1. 

If control character is not supplied for overflow lines, set to 0. 

1 If this table entry can be user-modified, set to 1. 

If this table entry cannot be user-modified, set to 0. 

2 If more than 255 errors of this type have occurred so that 255 should be 
added to Field Three, set to 1. 

If less than 255 errors of this type have occurred, set to 0. 

3 If buffer contents is not to be printed with error messages, set to 1. 
If buffer contents is not to be printed, set to 0. 

4 Reserved for future use. 

5 If error message is to be printed for every occurrence, set to 1. 
If error message is not to be printed, set to 0. 

6 If traceback map is to be printed, set to 1. 

If traceback map is not to be printed, set to 0. 

7 Reserved for future use. 

Five: The address of the user's exit routine. If one is not supplied (in other words, 
if library is to take its own standard corrections) , the final bit is set to 1 . 

Figure 24. Composition of an Option Table Entry 



242,2 



1111 

<- byte -> <- byte -> <- bvte -> <- bvte -> <----,«_^^^ 11 b--tes _-_=„ -- 

r T T T t 1 

I Field | Field | Field | Field | Field Five i 

I One | Two j Three j Four I ■ 

L X X X X j 

Field Contents 

One: Set to 10, except for errors 208, 210, and 215, which are set to (unlimited), 
and for errors 217 and 230, which are set to 1. 

Two: Set to 5, except for error 210, which is set to 10, and for errors 217 and 230, 
which are set to 1. 



Three: 


Set 


to 0. 


Four: 


Bit 


Settinq 












1 


1, except for errors 230 and 240 




2 







3 







a 







5 







6 


1 




7 






Five 



;et to 1. 



Note : These system generation values are also inserted initially into any user error 
entries. 

Figure 25. Original Values of Option Table Entries 



Table 14. IHCFCOMH/IHCECOMH Transfer and Subroutine Table 



| Displacement | 


Branches to | 


| from IBCOM# J 


Section 


| Function of Routine 


r T 

1 ' 


_ T 

FRDWF j Opening section, formatted READ 


1 4 1 


FWRWF 


| Opening section, formatted WRITE 


i 8 | 


FIOLF 


| I/O list section, formatted list variable 


1 12 | 


FIOAF 


| I/O list nection, formatted list array 


1 lb | 


FENDF 


Closinq section, formatted READ or WRITE 


1 20 | 


FRDNF 


Opening section, nonf ormatted READ 


1 24 | 


FWRNF 


Opening section, nonformatted WRITE 


1 28 | 


FIOLN 


I/O list section, nonformatted list variable 


1 32 | 


FIOAN 


I/O list section, nonformatted list array 


1 36 1 


FENDN 


Closing section, nonformatted READ or WRITE 


1 "° 1 


FBKSP 


| Implements the BACKSPACE source statement 


1 " u 1 


FRWND 


Implements the REWIND source statement 


1 *»8 1 


FEOFM 


Implements the ENDFILE source statement 


| 52 | 


FSTOP 


Write-To-Operator, terminate job 


1 56 | 


FPAUS 


Write-To-Operator, resume execution 


1 64 | 


IBFINT 


Load module initialization 


1 68 | 


IBEXIT 


Load module termination 



l X X J 
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Chart GO. IHCFCOMH/IHCECOMH (Part 1 of 4) 



HEAD OF A BRANCH TABLE. 
(SEE TABLE ID) 



SET lOSWr FOR 

NON- FORMATTED 

INPUT 



SET IOSWF FOR 
NON- FORMATTED 

OUTPUT 



» DIRECT • 

ACCESS DATA 
». SET .• 



OPEN (IF • 

NEEDED) AND • 

READ » 



cu •. 


« »•• »C5* ••••• •••• 


• • •• 


•DIOCSi • 


.• DIRECT ♦. YES 








•. SET . • 


» NtEDLD) AND • 


♦. • • 


• RtAD/WKIlt. • 



OPEN (IF 

NEEDED) AND 

READ 



OPEN (IF 
NEEDED) AND 
READ/WRITE 



SET IOSWF FOR 

FORMATTED 

OUTPUT 



• SCAN FORMAT 

• INFORMATION. 
->»SAVING CONTROL 

•SPECIFICATIONS 



TRANSLATE 

FORMAT 

INFORMATION 



• FIRST 

CONVERSION 
•. CODE 



•RETURN TO MAIN 
• PROG 
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Chart GO. IHCFCOMH/IHCECOMH (Part 2 Of 1) 



SET I/O SWITCH 



•SET I/O SWITCH » 



• t 

->»RETUKN TO MAIN « 



'.DIRECT ACCFSS. 



•RETURN To MAIN 



.F1 1/ - SWITCH 



. PKA!. .iK WRIT-.. 



•RETURN TO MAIN 



, BUFFFR EMPTY . < 



'.DIRECT ACCESS.* >• 



FRESH READ 



-->•. DIRECT ACCESS.* >< 



• ••• 

• « 
->♦ Jl • 

* < 

• ••• 



DIOCS* 

FRESH READ 



• MOVE CORRECT • 
•AMOUNT OF DATA • 

->»FROM BUFFER TO • 

• LIST ADDRESS • 



♦RETURN TO MAIN • 



Appendix F: Object-Time Library Subprograms 2U3.1 



Chart GO. IHCFCOMH/IHCECOMH (Part 3 of HI 



ISSUE WTO MACRO 



»••••••»••••< 



•WAIT FOR REPLY • 



►••01 ••••»•• 

RETURN TO 

SUPERVISOR 



►rftTUKN TO MA1U 



srr up 

PARAMETERS FOR 
CONVERSION 



•»*«»H3******** 

->• resume: scan 



• NEXT 
CONVERSION 

• . coot 



****J2********* 
•RETURN TO MAIN 
• PROGRAM 
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Chart GO. IHCFCOMH/IHCECOMH (Part 4 of 4) 



FKWND 
KBKSP 

FFOFM 



' IMPLEMENT BKSP, ' 
' REWIND, OK ' 

> ENi>OF-FILF. ' 



I:,!.UE :,PIt 



•KETl'KN TO MAIN 



ISSUE TTAt 



■ETUKN TL MAIN 



I BEX IT 

.....Ab»» 
•IHCLRRM 



ERROR summary 



CANCEL :-PIt AMD 
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Chart Gl. IHCFIOSH/IHCEFIOS (Part 1 of 2 ) 



DETERMINE OPERATION TYPE 



F 1NIT 
{READ 
FRITE 
FCTRL 
FCLOSE 



INITIALIZATION 

READ 

WRITE 

DEVICE MANIPULATION 

FINAL CALL 



1H1E MODULE IS CALLED 
BY IHCFCOMM/IHCECOMh FOR 
USER-RELUESTED SEQUENTIAL I /C 
AND BY OTHER LIBRARY ROUTINES 
FOR MESSAGE WRIT IMG. 



DETERMINE DSRN 



IF EXTENDED 

ERROR HANDLING 

IS NOT PRESENT, 

IHCERRM ENDS 

EXECUTION 



BUILD UNIT 

B LOC K (IF 

NECESSARY! 



► PREVIOUS 
OPERATION 
». WRITK 



'ANY MC 05. IN» 

BLOCK TO HE 
•. PROCESSED. • 



••••E2 ••• 

RtAD Nk XT 

RECORD INTO 

THIlj WlFFErt. 

SWITCH IiUhftM 

POINTERS 



•CHECK RE.SUL 
•READ INTO C 
• BUFFER 



.....Jl ........I 

> OPEN DATA 
» CONTROL BLOCK 
»FD* DATA SET IF 
>NOT PREVIOUSLY 
• OPENED 



; IF EXTENDED 
'ERROR HANDLING 
|lS NOT PRESENT, 
| IHCERRM ENDS 
' EXECUTION 



determine 
recokd format 
and blocking 



... ..[)!• 


•••#••••• 


•WRITE C 


INTENT:, • 


•OF THIS 


PUFfER • 


• SWlTCn 


BUFFER • 


• POINTERS • 



CHECK ANY 

OUTSTANDING 

INPUT OR OUTPIJ1 



CHE< K Kh'--1ILT 

WKilt fo.M 

<;"]HM< iillFfFt. 



CUkRENT •. YE!, 



>•. OPERATION .•--■, 
•. DtVK t. . • 

•. MANIP. • I 



>. HEAI; oR WRI1 E. 



READ A BLOCK 



IN IOS .♦ 1 

'•..•' v 



> PASo CUHRiNT 
'KEtOHO PoINTfcK 

> AND LOGICAL 

» RECORD LENGTH 
» TO CALLER 



INVERT 

•••••KJ ••• 

•INVERT BUFFERS 

• AND DECBS IF 
•DATA SET DOUBLE 

• BUFFERED 



♦ G» 



>. LAST DSHN . ' 



V 
RETURN 



> TO ADDRESS 

> SPECIFIED IN 
>END = PARAMETER 



. »IS THERE AN*. 
.END PARAMETER. 
•.SPECIFIED. • 



1HCERRM 

ERROR MESSAGE 
IHC2171 



j :r KXTINDED 
[UXOR HANDLING 
ill NOT FHIZXT, 
! IHCIMM INDS 
i OICUTION 



••"'I 



•CALLtR AT ERROR»<--J 

• orrstT • 
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Chart Gl. IHCFIOSH/IHCEFIOS (Part 2 of 2) 



• ISSUE ERROR 
'MESSAGE IHC218I 

• TO CONSOLE 



.♦CURRENT*. 

, • UNIT THE • 

.OBJECT ERROR 

•. UNIT .• 



•DATA MANAGEMENT* 

• APPROPRIATE • 

•NUMBER OF TIMES* 



•••••B2» 

• IF EXTENDED • 
•ERROR HANDLING • 

->»PRESENT. SET SW» 

• TO SUPPRESS • 

• ERROR SUMMARY • 






DETERMINE 

OPERATION 

TYPE 



ISSUE CLOSE 

HITM REHLA3 

OPTION 



.•••C}<»«*>* • •• 

ISSUE CLOSE 
CTYPC=T> WITH 
LEAVE OPTION 



ISSUE 

APPROPRIATE 

NUMBIR Of BSP 

If'hYSICAL 

BACKSPACEI 



RETURN 



I/O ERROR ' 
BEEN 
. CORRECTED. ' 



FREF I/O 

BUFFERS FOR 

THIS DATA SFT 



• ADJUST THE < 
•MECPTR TO POINT 

• TO PRECID1NC, < 
•LOGICAL HELWkl, < 



• RETURN TO • 
•CALLER AT ERROR' 

• OFFSET • 



I IF EXTENDED 
[ ERROR HANDLING 
J IS NOT PRESENT , 
I IHCERRM ENDS 
J EXECUTION 



» H3 •--■• 
»••• V 



.•CURRENT*. 
. • UNIT THE • 
.OBJECT ERROR 
•. UNIT . « 



• IF EXTENDED • 

• ERROR HANDLING • 
->*PkESENT, SET ^W* 

• TO SUPPRESS • 

• ERROR SUKMAKY • 



••••J2********* 

• RETURN TO • 
•CALLER AT ERROR* 

• OFFSET • 



••»»»J3 ••♦••••••• 


• 


HCERRM • 


• 


.•-•-•-•-•-•-•-• 


• 


ERROR MESSAGE • 


• 


IHC219I • 


• 





• ISSUE ERROR • 
•MESSAGE IHC219I' 

• TO CONSOLE < 



f IP EXTENDED 
[ERROR HANDLING 
IIS NOT PRESENT, 
', IBCXRKM ENDS 
! KJBCUTION 
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Chart G2. IHCDIOSE/IHCEDICS (Part 1 of 5 ) 



CALLS FOR DEFINE FILE 



>..»,3.. ...... 

COMPILER- 
GENERATED 
OBJECT CODE 



INSERT UNIT 

NUMbER' 'J 

PARAMITER LIST 

ADDkLF.:'. IN UNIT 

A!,:;u.N ThL 



03 ». 

.• LAST •. 

•UNIT NUMBER" 

IN PARAMETER 

•. LIST . < 



' GET NEXT UNIT 
> NUMUER tUi.KNI 
'FROM PARAMETER 



>:.TABLISH 

ADHKFV.ABILITY 

IN IHl'FCOMri/ 

IHCFroKH FOR 

LAI th CALL.'. 



COMF1 I. EH- 
C.I Nh RATKJ 
-IKJElT l OOF. 
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Chart G2. IHCDIOSE/IHCEDIOS (Part 2 Of 5) 



r"z^;; 



INITIALIZATION 

READ 

WRITE 

CLOSE 



DASINT 
DASREAD 
DASHRITE 
DASTERM 



THIS NODULE IS CALLED BY 
IHCFCOMH/IHCECOMH TO IMPLEMENT 
DIRECT ACCESS READ, WRITE AND 
FIND REQUESTS. 



SDRE 
SRN 



•♦••»C }*••••••••• 



.iMSMBK ':.!!?- 



•_•-•_•. 



. • IS TgIS A • 
.FIND REQUEST 



••»»*D3»i*»(**»»* 



• READ A RECORD • <- 



•insert relative* 
•record no. into* 
-* blxrefa or • 
• blkrepb field • 



• PLACE BUFFER 

• POINTER AND 
•BUFFER SIZE IN 

• REGISTERS 



G2 •. 
FREVIOUS 



GETUB 

•••••H 2* ***••**•• 
•CONSTRUCT UNIT • 

• BLOCK. INSERT * 

• ADDR OF UNIT • 
•BLOCK INTO UNIT* 

• ASSIGNMENT TBL • 



• ••• 

• 02 • 

• E3 •--, 

• * I 

• ••» I 

DAS END V 

•»*«*E3*********< 
•GET ASSOCIATED • 

• VARIABLE'S « 
-->• ADDRESS AND • 

•CURRENT RECORD • 

• NUMBER • 



• ••••£;>••*•••***• 

• UPDATE ASSOC • 

• VARIABLE SO • 
->*TKAT IT POINTS • 

• TO RCD JUST • 

• READ • 



•r^««« 



>•••••< 



• UPDATE 

• ASSOCIATED 

• VARIABLE SO 
•THAT IT POINTS 
»TO NEXT RECORD 



•»Fb»«****« 

RETURN TO 
CALLER 



READJFCB 

••••»J2********* 

• READ JOB FILE 

• CONTROL BLOCK 

• (JFCB) . INSERT 

• sumo VALUE 

• INTO DCB 



EXAMINE 

JFCBIND2 FIELD 

IN JFCB 



NEW DAT IV 
SET TO BE 
. CREATED . 



• ••• 
•03 • 
->• El 



. • •. rES 
■>*. WRITE REQULST. • 1 

"*..*" V 



••••«X1********< 

•IICEftRN 

•.•.•-•-*.•.»-•■ 

• ERROR MESSAGE 

• IHC231I 



! IF EXTENDED 
[ERROR BJOOLING 
IIS NOT PRESENT, 
! XHCSMM BTDS 
< EXECUTION 



••••J»»***« 
IHCERRM 

ERROR MESSAGE 
IHC236I 




. i ip extended 
[error handling 
'is not present, 
i ihcbjum bnm 
! execution 



•K5********< 
RETURN TO 
CALLER 
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Chart G2. IHCDIOSE/IHCEDIOS (Part 3 of 5) 



» CREATE AND • 
"FORMAT NEW DATA* 
►SET. USING BSAM* 
» WRITE MACRO • 



aPKN Oil F</K 

1>ATA SET F<<M 

DIKF.CT ALTfSS 

PROCESSUS. 



• INSERT RECORD ♦ 

• NUMBER INTO • 
•HECNUM riELD OF* 

• UNIT BLOCK • 



.....Gl ••••••••• 

•INSERT ADDR OK 
•DECBA SKELETON 

• INTO CURBUr 

• riELD OF UNIT 

• BLOCK 



•••••HI********** 
•INSERT ADDR OF • 
•DECBB SKELETON • 

• INTO NXTBUr • 

• FIELD OF UNIT • 
•BLK IF 2 BUFFER* 



•••••Jl •••••••••• 

•INSERT ADDR OF • 

• I/O BUFFERS • 

• INTO DECB • 
•SKELETONS) IN • 

• UNIT BLOCK • 



•••••Kl •••••••••• 

•INSERT ADDR OF • 

• BLKREFA INTO • 
•DECBA SKELETON •- 

• IN UNIT BLOCK • 



WRITE A RECORD 



•••••C2********** 
•INSERT ADDR OF • 

• BLKREFB INTO * 
->*DECBB SKELETON * 

* IN UNIT BLOCK • 
♦IF TWO BUFFERS • 



*••• 

• 03 • 

• 32 •-> 



•***»C ]•••*••***• 

• OBTAIN NEXT • 
•OUTPUT BUFFER. • 

— >• BLANK OR ZERO • 

• DEPENDING ON • 
•DATA SET FORMAT* 



•****D3*********« 
•INSERT RELATIVE* 
•RECORD NO. INTO* 

• BLKREFA OH • 

• BLKREFB FIELD • 



»••••£ J******** 

• PLACE BUFFER 

• POINTER AND 
•BUFFER SIZE IN 

• REGISTERS 



NO 


H •. 

.•ENTERED*. 

* FROM FILE 

INITIALIIATN 

*. SECTION . 

•• . • 


* 


*. . • 


• •••,* 

• 02 • 

• EJ» 




» YES 



****03********* 

> RETURN TO • 

> IHCFCOMN/ • 
• IHCtCOMM • 
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Chart G2. IHCDIOSE/ i HCEDIOS (Part U of 5) 



•ANY PENDING' 

I/O 
•OPERATIONS. • 



FREE MAIN 

STORAGE 

OCCUPIED BY 

UNIT BLOCKS 



~Lu:.E DCBS FOR 

DIRECT ACCESS 

DATA SETS 



RETURN TO • 
CALLER < 



• RETURN 



• DSRN • 
NEGATIVE OR 

• .TOO LARGE. • 



GET UNIT 

ASSIGNMENT 

TABLE POINTER 



• GET PARAMETER • 

• FOR ERROR « 
•MESSAGE 1HC220I* 



•COMINTFC 

• SET UP FOR 

• ERROR MESSAGE 



GET PARAMETER 

FOR ERROR 

MESSAGE IHC2201 



LINK SAVE AREAS* 

AND SET UP FOR • 

ERROR MSG * 



..♦.«<,......... 

RETURN TO • 

"ALLEB AT ERROR* 

OFFSET • 
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Chart G2. IHCDIOSE/IHCEDIOS (Part 5 of 5) 



>«A3»»»»«» 

PRCMNTPC 



SET UP 

PARAMETERS TO* 

ERROR MESSAGE 



r 



IP EXTENDED 

ERROR HAMDLING 

IB NOT PRBMOIT, 

IHCZJUUt MOB 

EUCUTION 
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Chart G3. IHCNAMEL 



•Al*****« 

FUDNli 



••••A3********* 

> • 

► PWRNLi < 



THIS MOOULC 18 CALLED BY 

Tit COMPILER-GENERATED CODE TO 

IMPLEMENT NAMELIST I/O REQUESTS. 



I/O ERROR 
FIXUP IN 
. PROCESS . 



TERMINATE .10B 



REM) RECORD 



Nfc*!£ FOUNT' . ' 



, *I/0 DURING *. NO 
I/O ERROR .*-.. 
•. TIXUP . • 



****C3********' 

GIVE ERROR 
IHC90MI 



•***D3********* 

• • 

• TERMINATE JOB • 

• • 



••••P2**** •• 



RETURN 
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Chart G<4. IHCFINTH/IHCEFNTH (Part 1 of 3 ) 



►•••A3»»»«» 

AJUTH« 



••••B3*«**»»**« 



DETERMINE INTERRUPT 


TYPE 


SPECIFICATION 


SPEC 


DATA 


RETURN 


FX-PT. OVERFL. 


ALERT 


FX-PT. DIVIDF 


FXOVC 


FL-PT. SIGN. 


ALERT 


DEC. OVERFL. 


ALFRT 


DEC. DIVIDE 


DVCHK 


EXK OVERFL. 


FPOVF 


EXP. JNDERFL. 


FPUNF 


KL-PT. DIVIDE 


UVCHK 



► IS •. YES 

INTERRUPT . •--- 
>, IMPRECISE. • 



>»»»G1 ••••••••« 

LOAD IHCADJST 



• SET UP ERROR • 
•MESSAGE IHC210I* 

• FOR BOUNDARY • 
» ALIGN ERROR • 



****J1********* 

SET UP 

PARAMETERS FOR 

IHCADJST 



••••Kl ••••••••» 

• • 

•00 TO IHCABJtT • 



.•l-J EXTENDED* 
, ERR HANDLING 
». PRESENT . • 



.• FLOATING • 

->•. POINT DIVIiiE 

•. CHECK .• 



:•-'! 



•••••H^«»* ♦»♦••• 
•PICK UP DATA IN 

♦ ERROR FHOM 
•FLOATING POINT 

• REGS 



Ji •. 

.• ARE •. 

•INTERRUPTS ». 

TO BE IGNORED. 

•. . • 


YES 
... 




•. . • 






•• . • 


< 




• NO 
1 •••• 
• 02 • 


• »•• 
•02 

• E3 


• 
• 
• 
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Chart GU. IHCFINTH/IHCEFNTH (Part 2 of 3) 



. » EXTENDED • 
.ERR HANDLING 
♦. PRESENT .• 



» IINIItHF'LOW • 

l<VKKI UjW OH 
'. DIVIDE CK. • 



. K III' lit W 



. • EXTtNDED 
. ERK HAN!jL1N(, 
♦ . PHK.'.fcNT . 
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Chart GU. IHCFINTH/IHCEFNTH (Part 3 of 3 ) 



NO 


• EXTENDED 
ERR HANDLING 
•. PRESENT . 

• • 


* 


• . . • 


• •••• 

• 01 • 

• • 




YES 


• 







NO . • EXTENDED *. 

-'•S!MKftr ,, S-' 



»oi • 

> GS« 



•.::•-. 



• SET 'JP ERROR ' 
•MESSAGE IHCnOI' 

• FOR IMPRECISE ' 
» INT < 



, • EXTENDED • 
ERR HANDLING 
•. PRESENT . • 



•DETERMINE WHICH* 
•AND THE NUMBER • 
• OF blT:> TO TURN* 



DETERMINE 
INTERRUPT 
TYPE»S> 



2U8.2 



Chart G5. IHCADJST 



> ISSUE SPIE TO • 

> TAKE CARE OF ♦ 
'INTERRUPTS THAT* 
►OCCUR IN MOVING* 
» DATA • 



> IKCADJST 



»••••••• 



• CHECK ADDR OF ♦ 
•INSTR FOLLOWING* 

• THE ONE WHICH • 
•CAUSED BOUNDARY* 

• MISALIGNMENT • 



I: 



MOVE DATA TO 

DOUBLE WORD 

BOUNDARY 



ISSUE SPIE FOR 

APPROPRIATE 

INTERRUPT 

HANDLING 



REEXECUTE INST 

WHICH CAUSED 

ORIGINAL 

INTERRUPT 



I!'. BOUNDARY* 

VIOLATION 
, HANDLED . • 



.* NEXT *. 
•INSTRUCTION* 

ON WRONG 
'.BOUNDARY .* 



OBTAIN 

INSTRUCTION 

WHICH CAUSED 

SPEC INTERRUPT 



NEW 

INTERRUPT 

.OCCURRED . 



.* WAS *. 

. • CONDITION *. 
'.CODE AFFECTED. 



ISSUE SPIE TO 

RESTORE 
ORIGINAL PICA 



MOVE NEW 

CONDITION CODE 

TO PIE 



> MOVE UP ( 
>ANL> Rl OF 

•TO A TtMP 



. • tXI ENDE!) 
>.ERk HANDLINI 
•. IN(. LUDEL . 



• RET TO ARITHf 
•TO PROCESS NEW 

• INTERRUPT 



ISSUE SPIE TO 

RESTORE 
ORIGINAL PICA 



>***J2********* 
R£TURN « 



V 

DECREMENT 
MESSAGE COUNT 
AND PLACE NEW 

COUNT IN 
IHCUOPT 



modify in:;tr 

ADDRES:. to 

point to iu:;tk 

whuh caiii.ed 

interrupt 



• RESET P.'.W 
•ADDRESS IN Pit 

•to in;;tr which 

• CAUSED 

• INTERRUPT 



••••«♦••••••*< 

ISSUE A SPIE 

MACRO TO STOP 

SPECIAL 

INTERRUPT 

HANDLING 



> RETURN TO 
'SUPERVISOR FOR 

> ABEND 



•CALL IHCFINTH/ • 
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Chart Gb. IHCIBERH 
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;->rt i;7. inf.T,TAF (Pr-itt 1 of 2) 
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Chart G7. 



IHCSTAE (Part 2 of 2) 
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Chart Gi 



IHCERRM (Part 1 of 2) 
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Chart G8. IHCERRM (Part 2 of 2) 
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Chart G9. IHCFOPT (Part 1 of 3) 
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Chart G9. IHCFOPT (Part 2 of 3) 
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Chart G9. IHCFOPT (Part 3 of 3) 
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Chart G10. IHCTRCH/IHCETRCH 
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Chart Gil. IHCFDUMP 
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Chart G12. IHCFEXIT 
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Chart G1U. 
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Chart G15. IHCFDVCH 
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Chart G16. IHCDBUG (Part 1 of U) 



> < 

» DEBUG. » 



••SELECT OPTION. • 



OPTION 


ROUTINE 


LOCATION 


TRUCE 


TRACE 


GF01F1 


SUBTRACE ON 


SUBTREN 


GF01F2 


SUBTRACE OFF 


SUBTREX 


GrOlFJ 


UNIT 


UNIT 


GF01F* 


INIT VARIABLE 


INITSCLR 


GF01F5 


INIT ARRAY ELEMENT 


INITARIT 


GF02A1 


INIT ARRAY FULL 


INITARAY 


GF02A2 


SUBCHX 


SUBCHK 


GF02A1 


TRACE ON 


TRACEON 


GF02A* 


TRACE OFF 


TRACEOFF 


GF02D* 


DISPLAY 


DISPLAY 


GF02A5 


BEGIN I/O 


START 10 


GF0JA1 


FINISH I/O 


ENDIO 


GF03A2 



. TRACEFLAG OFF. •-- 



••••HI •••••••*• 



SUBTREN 

•MOVE 'SUBTRACE'* 

• AND NAME OF • 

• PROGRAM INTO * 

• DBUFFER • 

• • 


SUBTREX 

««»..f3«. «««.«..* 

• » 
•MOVE ' SUBTRACE* • 

• RETURN* • INTO • 

• DBUFFER • 

• . 


UNI 






INITSCLR 

.....f5*......... 

•SAVE DATA TYPE • 


• PLACE UNIT * 
•NUMBER IN DSRN • 


1 •♦•• 

• OK • 
l->» B» • 

• • 
.... 


1 .... 

»ou • 

l->. BU • 
.... 


' 


' 


" 




. * 
• RETURN • 


. . 

• COMPUTE • 

• LOCATION Or • 

• VARIABLE ♦ 













OUTINT 

CONVERT LABEL 
TO EBCDIC 



.... 
• 02 • 
■ >• AU 



...*UJ. ........ 

OUTNAME 

PLACE VARIABLE 
NAME IN BUFFER 



.... 
• 02 • 
>• Al 



258.6 



Chart G16. IHCDBUG (Part 2 of 4) 
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Chart G16. IHCDBUG (Part 3 of H) 
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Chart G1.6. IHCDBUG (Part U of «*) 
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GLOSSARY 



active character ; A significant character 
in the interpretation of a source state- 
ment. Always non-blank except during pars- 
ing of literal or IBM card code infor- 
mation. 

ADDR : Contains the address portion of the 
current POP instruction. 

ADDRESS (field) : A 2-byte item that is 
part of the pointer (indicating an address 
on a roll) and a driver (indicating the 
forcing strength of an operation) . 

ANSWER BOX : An item used to hold a true or 
false answer for those POP instructions 
which use or return an answer in their 
execution. 



BASE: 



status variable maintained for 



each roll used by the compiler which con- 
tains the beginning address of that roll 
minus U. 

Base Table : A list of absolute addresses 
from which the object module loads a 
general register prior to accessing data. 

BOTTOM : A status variable maintained for 
each roll which holds the address of the 
last word on the roll containing 
information. 

Branch Table : A list containing the 

address of each branch target label and 

statement function used in the source 
module. 



branch target labe l 
target of a 
statement. 



A label which is the 
branch instruction or 



Central Items : Another name for SYMBOL 1-3 
and DATA 0-5. 

compiler phase : A program consisting of 
several routines written in machine lan- 
guage and/or POP language; each phase per- 
forms a well-defined function in the trans- 
formation of the source module to the 
object module. 

compiler routines : The routines that com- 
prise each phase of the compiler and which 
may be written in machine language and/or 
POP language. 

CONSTR : Contains the beginning address of 
the data referred to by the compiler 
routines. 



control driver : A driver in Polish nota- 
tion to indicate types of statements and 
other control functions. 



CRRNT CHAR : Contains the character (from 
the input statement) that is currently 
being inspected. 

CRRNT CHAR CNT : Contains the column number 
of the contents of CRRNT CHAR; also called 
the • scan arrow* . 

DATA 0. 1. 2. 3. H. 5 : Halfword variables 

(except DATA 5, which is two words lonq) 

used to hold constants used in the source 
module and other data. 



error listing : The display of messages 
indicating error conditions detected in the 
processing of the source module. 

EXIT roll : A special roll used by the 
compiler for maintaining exit addresses 
from compiler routines when a POP subrou- 
tine jump instruction is executed. 

EXT ADR : Contains the address of the cur- 
rent "bottom" of the EXIT roll. 

forcing strength : A value contained in the 
driver which indicates the order of the 
indicated operation (e.g., multiplication 
and division operations precede addition 
and subtraction). 

global dummy variable : A dummy argument to 
a SUBROUTINE or FUNCTION subprogram. 

global label : A label used to define a 
program block. These labels may be 
referred to from any point in the program. 

group : The logical collection of informa- 
tion maintained on rolls; an entry on a 
roll. 

group size : The number of bytes of infor- 
mation constituting the group on a roll. 

Group Stats : Information maintained for 
each roll used by the compiler; pertains to 
comparative search operations. 

heading : Initializing instructions re- 
quired prior to the execution of the . body 
of the object module. 

IEYALL: The system name for the compiler 
phase Allocate. 
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IEYEXT; The system name for the compiler OPERATOR (field) ; A 1-byte item that is 



phase Exit. 



The system name for the compiler 



IEYFOPT : 
Invocation phase. 



IEYGE N: The system name for the compiler 
phase Gen. 

IEYPAR : The system name for the compiler 
phase Parse. 

IEYROL : The system name for that area of 
the compiler which holds the WORK and EXIT 
rolls and the roll controls and group 
stats. 



part of the pointer and driver indicating 
the roll used (pointer) or type of opera- 
tion to be performed (driver). 



optimization ; The reduction and re- 
organization of object code for the 
increased efficiency of the object module. 



PGB2: 



Contains the beginning address of 



the global jump table. 



plex ; A variable length group on a roll; 
the first word holds the number of words 
exclusive of itself. 



IEYUNF : The system name for the compiler 
phase Unify. 

indirect addressing : A method of obtaining 
information held at one location by refer- 
ring to another location which contains the 
address of the value in guestion. 



pointer ; This item is one element of 
Polish notation used to indicate references 
to variables or constants; indicates loca- 
tion of additional information on a roll. 

P olish notation ; An intermediate language 
into which the source module is translated 
during processing and generation of the 



INDIRECT BOX : Used to contain the address object module, 
needed in the indirect addressing operation 
performed by the POP instructions. 



POP ADR: 



Holds the address of the POP 



INSTR : Contains the "operation code" por- 
tion of the current POP instruction. 

item : Synonymous with variable. 

jump : Synonymous with branch. 

keep : Indicates the moving of information 
contained on a roll to another storage 
location and retaining the original infor- 
mation on the roll. 



LAST CHAR CNT: 



This item contains the 



column number of the last active character, 
i.e., the active character preceding the 
one currently being inspected. 

local d um my var iable ; A dummy argument to 
a statement function. 



instruction presently being executed. 



POP instruction: 



A component part of the 



POP language defined as a macro. 

POP interpreter : A program written in 
machine language for the purpose of execut- 
ing the POP subroutines; labeled POP SETUP. 

POP jump table ; A table used by the POP 
interpreter in transferring control to the 
POP subroutines. Holds addresses of these 
routines. 

POPPGB: Contains the beginning address of 
the machine language code for the POP 
instructions and the POP jump table. 



POPs, P O P language ; A macro language in 
which most of the compiler is written. 



local label; A label defined within a POP subroutines: 



program block which may be referred to only 
within that block. 



The subroutines used by 
the POP interpreter to perform the opera- 
tions of each POP instruction. 



MP AC 1, MP AC 2 ; Two fullword items used by 
the compiler in double- precis ion arithmetic 
operations. 

NAMELIST Table ; A table which holds the 
name, address, etc., for each variable 
listed in a single NAMELIST list in the 
source module. 

operation driver ; A 1-word variable which 
is an element of Polish notation and indi- 
cates arithmetic and logical operations 
designated in source module statements. 



program text ; The object code produced for 
the object module. 

prune , pruning : A method of removing 
information from a roll, thereby making it 
inaccessible in subsequent operations. 

quote ; A sequence of characters preceded 
by a character count; used for comparisons 
with the input data. 

QUOTE BASE ; The initial address of the 
first quote (Parse). 
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recu r sion ; A method of call and recall 
employed by the routines and subroutines of 
the compiler whereby routine X may call 
routine Y which, in turn, calls routine X. 



releasing rolls : The method of making 
information reserved on a roll available 
for use by the compiler. 

reserve m ark ; The 1-word value placed on a 
roll as a result of a reserve operation. 

reserving rolls ; A method of roll manipu- 
lation whereby information contained on a 
roll remains unaltered regardless of other 
operations involving the roll. 

RETURN : Contains the return addresses for 
the POP subroutines. 



scan arrow ; An item which refe*.- to the 
position of the source statement character 
currently being scanned. 

source module listing ; The display of the 
statements constituting the source module. 

storage allocation ; The assignment of main 
storage to variables used in the source 
module. 

storage map : The logical organization of a 
program or module and its components as 
they are maintained in main storage. (This 
map may also be displayed on an output 
device. ) 

SYMBOL 1, 2. 3: Halfword variables used to 
hold variable names used in the source 
module and other data. 



roll ; A type of table used by the compiler 
whose location and size are changed 
dynamically. 

ROLLBR ; Contains the beginning address of 
the base table. 

ro ll control ; A term applied collectively 
to those items used in roll maintenance and 
manipulation. 

roll number : A number assigned to each 
roll in the compiler for the purpose of 
internal reference. 

roll stat us items : Those variables main- 
tained for each roll which contain the 
statistics needed in roll manipulation. 



roll storage area: An area of the compiler 
in main storage that is allocated to the 
rolls. 



rung : 
roll. 



word of a multiword group on a 



RUNTIME operations : Several routines which 
support object code produced by the com- 
piler. 

Save Area : An area of the object module 
used in linking to and from subprograms. 



TAG (field) : A 1-byte item that is part of 
the pointer (indicating mode and size of 
the object pointed to) and driver (indicat- 
ing mode of operation). 

temporary storag e: An area of main storage 
used by the compiler to temporarily main- 
tain information for subsequent use. 

terminal errors : Errors internal to the 
compiler causing termination of compilation 
of the source module. 

TOP : A status variable maintained for each 
roll which indicates the new BASE of the 
roll when reserved information is contained 
on the roll. 

traits : The TAG field (uppermost byte) of 
a word on a roll. 

translation : The conversion from one type 
of language to another. 



WORK roll: 



special roll used by the 



compiler for maintaining values temporarily 
during processing. 



WRKADR: 



The address maintained for the 



WORK roll that indicates the last word into 
which information has been stored; the 
"bottom" of the roll. 



scalar variables 
ables. 



Nonsubscripted 



vari- 



W0.W1.W2. 



Acronyms used to refer to 



the last groups of the WORK roll. 
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definition 259 

description 26 
ACTIVE END STA XLATE routine 14, 39 
active statements 36, 39 
ADCON roll 57,145 
ADDR register 

definition 259 

description 29 
address computation instructions 

cross-reference list 139 
address constants 17,20,52,56,57 
ADDRESS field 

definition 258 

description 29-30 
addressing 

indirect 136,259 

relative 29,138 
ADR CONST roll 

description 159 

in Exit 56 

in Unify 52 
AFTER POLISH roll 

description 2 3,lbl 

in Gen r >3, 54 

in Parse 37-40,42 
Allocate label lists 193-19b 
Allocate phase (IEYALL) 



134,135 



cards produced 

rlo* ini t i Or, ?Sft 
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detailed description 44-51 

general description 12 

location in storage 17 

rolls used by 4 4 

subprogram list 51 
allocation of main storage 28 
ALTER OPTION TABLE routine 2 32 
ALLOCATION FAIL routine 4 2 
ALPHA LBL AND L SPROG routine 14,45 
ALPHA SCALAR ARRAY AND SPROG routine 
ANSWER BOX variable 

definition 2 58 

description 26 

in Parse 38 
AREA CODE variable 45,55,57,146 
arithmetic and logical instructions 

130,131,139 
array 

description 18 

dummy 47,48 

in Allocate 48,49 

listing of 21 

position in object module 17 

roll 26,47,146 
ARRAY ALLOCATE routine 14,45,47 
ARRAY DIMENSION roll 150 



14,45 



ARRAY PLEX roll 158 

ARRAY REF roll 52,159 

ARRAY REF ROLL ALLOTMENT 14,52 

ARAY REF ROLL ALLOTMENT routine 

ARRAY roll 

assigning storage for 47 

description 146 

group stats for 2 5 
artificial drivers 40 
ASSIGNMENT STA GEN routine 54 
AT roll 54,159 



146 
4 5-48 
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base addresses 28 

BASE AND BRANCH TABLE ALLOC routine 

14,45, 47 
BASE, BOTTOM, and TOP tables 23 e 28 
base table 

assigning storage for 47 

definition 2 59 

description 17 

|.o: it ion in object module 17 

use in Allocate 48 

use in Exit 57 
BASE TABL1 roll 

description 

in Allocate 

in Exit 56 
BASE variable 

definition 
BCD roll 4 5 
BLOCK DATA PROG 
BLOCK DATA subprogram 

allocation for 46 

Parse processing of 
BOTTOM variable 2 3 

definition 259 
branch table 

assigning storage for 

description 18 

position in object module 

use in Allocate 47 

use in Exit 56 
BRANCH TABLE roll 

description 150 

in Allocate 47 

in Exit 56 
branch target label 12,18 
BUILD ADDITIONAL BASES routine 14,45,49 
BUILD NAMELIST TABLE routine 14,45,48 
BUILD PROGRAM ESD routine 14,45,46 
BYTE SCALAR roll 47,151 



ALLOCATION routine 14,46 



39 



47 



17 
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CALCULATE BASE AND DISP routine 14,45 
CALL LBL roll 149 
central items 

DATA 2*4,192,259 

definition 259 

description 24 

SYMBOL 24,191,259 
CGOTO STA XLATE routine 38 
character scanning 26-27 
code producing instructions 134 
CODE roll 

description 160 

in Exit 56 

in Gen 53, 54 

location 22 
COMMON ALLOCATION AND OUTPUT routine 

14,45,47 
COMMON ALLOCATION roll 47,156 
COMMON AREA roll 155 
COMMON data 12 
COMMON DATA roll 152 
COMMON DATA TEMP roll 155 
COMMON NAME roll 152 
COMMON NAME TEMP roll 156 
COMMON statements 

allocation for 45 
COMMON variables 

allocation of storage for 45 

listing of 21 
compiler 

arrangement 28-29 

assembly and operation of 136 

code produced by 175-183 

data structures 22 

design of 9 

flags used 27 

general register usage 28 

initialization of 33 

limitations of 9 

machine configuration for 9 

messages 27 

organization of 10,14 

output from 16 

purpose of 9 

receiving control 33 

relationship to system 19 

rolls used in 140-162 

storage configuration 15 

termination of 33, 35 
COMPLEX CONST roll 14 3 
CONSTR register 

definition 259 

description 28 
control block area (CTLBLK) 227 
control driver 

definition 259 

description 31 

formats of 185-211 
CONVERT TO ADR CONST routine 14,52 
CONVERT TO INST FORMAT routine 14, 52 
CRRNT CHAR CNT variable 

definition 259 

description 26 

in Parse 38 
CRRNT CHAR variable 

definition 259 

description 26 

in Parse 38 



data items 24,192,259 
DATA SAVE roll 14 5 
data sets 

SYSIN 15,33 

SYSLIN 15,33 

SYSPRINT 15,33 

SYSPUNCH 15,33 
DATA statements 

allocation for 45 
DATA VAR roll 56, 154 
DDNAMES routine 3 5 
DEBUG ALLOCATE routine 14,45,49 
decision making instructions 131,132 
DECK option 51 
DIMENSION statement 

allocation for 46 

variables specified on 29 
DISPLAY statement 

NAMELIST table for 18,19 
DMY DIMENSION roll 14,46,147 
DO loops 

in Allocate 46 

in Parse 39 

in Gen 55 

in Unify 12, 51, 52, 53 
DO LOOPS OPEN roll 

description 144 

in Allocation 46 

in Parse 39 
DO LOOP UNIFY routine 53 
DO NEST UNIFY 14, 53 
DO STA XLATE routine 38 
DP COMPLEX CONST roll 143 
DP CONST roll 

description 143 

general 25 
drivers 

ADDRESS field 30 

artificial 40 

control 31,185-211,259 

definition of 30 

EOE 40,41 

formats of 185-211 

operation 30,260 

OPERATOR field 30 

plus and below phony 40,41 

TAG field 30 
dummy array 46,47 
dummy dimension 46 



END card 13 

omission of 39 

produced by Exit 57 
END STA GEN routine 54, 55 
ENTRY CODE GEN routine 14,53,54 
ENTRY NAME ALLOCATION routine 14,45,46 
ENTRY NAMES roll 54,147 
ENTRY roll 4 6 
EOE driver 40, 41 
EPILOGUE GEN routine 14,53,54 
epilogues 12, 53, 54 
EQUIV ALLOCATION PRINT ERRORS routine 

14,45,47 
EQUIV MAP routine 14,45,48 
EQUIVALENCE (EQUIV) ALLOCATION roll 
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47,1*8,156 
EQUIVALENCE (EQUIV) HOLD roll 1U5 
EQUIVALENCE (EQUIV) roll 46,47.151 
EQUIVALENCE (EQUIV) TEMP roll 145 
EQUIVALENCE OFFSET roll 45,152 
EQUIVALENCE statements 12,4 5 
EQUIVALENCE variables 

allocation of storage for 45 

description 18 

listing of 21 

map of 48 

position in object module 17 
EREXITPR routine 34 
ERROR CHAR roll 144 
ERROR LBL roll 148 
ERROR MESSAGE roll 144 
error messages 21 
error recording 4 2 
ERROR roll 42,148 
errors 

detection of 42 

recording of 21,42 
ERROR SYMBOL roll 149 
ERROR TEMP roll 144 
ESD cards 

general 12 

produced by allocate 
Exit label list 208-211 
EXIT PASS routine 14,55 
Exit phase (IEYEXT) 

definition 259 

detailed description 

general description 

location in storage 

rolls used by 55 
exit roll 

definition 259 

description 24,161 

general 10 

in IEYROL S3 

in Parse 38 

location in storage 15 
EXPLICIT roll 149 
EXTADR register 

definition 259 

description 29 
extended error handling facility 232,212 



FULL WORD SCALAR roll 47,155 
FUNCTION subprogram 46,49 



44,47,51 



55-51 
13 
15 
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FX CONST roll 14 3 



53-55 



15 



Gen iabei list 198-208 
Gen phase (IEYGEN) 

definition 259 

detailed description 

general description 

location in storage 

rolls used by 53 
GEN PROCESS routine 14,53 
GENERAL ALLOCATION roll 160 
general register usage 

used by compiler 28-29 

used by object module 20 
GET POLISH routine 14,53,54 
global area 136 
GLOBAL DMY roll 47,49,148 
global jump table 28,137,138 
global jumps 137,138 
global label 136,137,259 
GLOBAL SPROG ALLOCATE routine 
GLOBAL SPROG roll 

description 142 

general 42 

in Allocate 48 

in Exit 5b 
GO TO RTA GEN routine 55 
GO TO statements, processing of 
group 

definition 259 

description 24,25 
group stats 

definition 25, 259 

description 26 

location in storage 15 

.;izes 2 5 
group stats table 26 



14,45, 48 



54,55 



FL AC roll 153 
FL CONST roll 143 
flags 27 
forcing strength 

definition 259 

description 30, 31 

in Parse 40 

table 31 
FORMAT ALLOCATION routine 14,45,48 
FORMAT roll 4 8, 157 
FORMAT statements 

description 20 

in Allocate 12, 44, 48 

listing of 21 

position in object module 17 
FORTRAN error routine (IHCIBERH) 42,228 



HALF WORD SCALAR roll 47,152 
heading 

position in object module 17 
HEADOPT routine 3 5 
HEX CONST roll 154 



IBEXIT routine 239 

IBFINT routine 215 

IEYALL (see Allocate phase) 

IEYEXT (see Exit phase) 

IEYFINAL routine 35 

IEYFORT (see Invocation phase) 

IEYGEN (see Gen phase) 

IEYJUN subroutine 138 

IEYMOR routine 34 
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IEYPAR (see Parse phase) 

IEYPCH routine 34 

IEYPRNT routine 33 

IEYREAD routine 34 

ILYRETN routine 3 5 

IEYROL (see roll module) 

IEYUNF (see Unify phase) 

IF statement 37,38,39 

IHCADJST 229-230,249 

IHCDBUG 236-239,258.6 

IHCDIOSE 224-226,245 

IHCECOMH (see IHCFCOMH/IHCECOMH) 

IHCEDIOS 224-226,245 

IHCEFIOS 218-224,244 

IHCEFNTH 229-230,248 

IHCERRM 233,253 

IHCETRCH 2 3 3,258 

IHCFCOMH/IHCECOMH 
flowchart 24 3 

init ialization operations 215 
input/output operations 218-226,227-228 
termination operations 239 
transfer and subroutine table 242.3 



IHCFCVTH 

IHCFDUMP 

IHCFDVCH 

IHCFEXIT 

IHCFINTH 

IHCFIOSH 

I HCFOPT 

IHCFOVER 

IHCFSLIT 

IHCIDERH 

IIICNAMEL 

IHCSTAE 

IHCTRCH 

1HCUATBL 

IHCUOPT 

IMPLICIT 



135,260 
instruction 



2 34 

235-236, 258. 1 
234, 258.5 
235, 258. 2 
229-230, 248 
218-224, 244 

'1 -* ~» "~»1T ^ C d 

/; .3 4 - ^ )J, oj 
235, 258. 4 
2 3 5,258.3 
228-229, 250 
226-227, 247 
231,251 
230-231,258 

239 
242.1-242.3 
roll 153 
indirect addressing 
indirect addressinq 
IND VAR roll 

description 141 
in parse 37 
INIT roll 49,145 
Invocation phase (IEYFORT) 
definition 260 
detailed description 33 
qeneral description 12 
location in storage 15 



jump instructions 132,133 



keep 

definition 260 
qeneral 23 



135 



36 



Exit 208-211 

Gen 198-208 

Parse 185-193 

Unify 196-198 
labeled statement references 12 
labels 

branch target 12, 18 

detailed description 135,136 

global 135,136 

local 135,136 

mode 17, 54 
LAST CHAR CNT variable 

definition 259 

description 26 

in Parse 38 
LAST SOURCE CHAR variable 3 8 
LBL FIELD XLATE routine 14,37,38 
LBL process routine 14,53,54 
LBL roll 45,46, 54, 153 
LEVEL ONE UNIFY routine 53 
LIB roll 140 

LITERAL CONST ALLOCATION routine 14,45,47 
literal constants 

description 20 

in Allocate 12, 44, 45 

position in object module 17 
LITERAL CONST roll 143 

LITERAL TEMP (TEMP LITERAL) roll 155 
LOAD and DECK options 33 
LOCAL DMY roll 14 8 
local label 136,137,259 
LOCAL SPROG roll 45,46,149 
LOGICAL IF STA XLATE routine 38 
LOOP CONTROL roll 52,156 
LOOP DATA roll 

description 157 

in Parse 38 

in Unify 53 
LOOP SCRIPT roll 142 



made labels 17,54 

map 

of scalars 47 
storage 21,44,50,260 

MAP option 51 

messages 

description 27 
location in storage 15 
printing of (IEYPRNT) 33 
produced by Allocate 48,49 
produced by Invocation 35,36 
produced by Parse 43, 44 

minimum system configuration 9 

MOVE ZEROS TO T AND C routine 14 

MPAC1 and MPAC2 variables 
definition 259 
description 26 

multiple precision arithmetic 26 



label lists 

Allocate 193-196 



NAMELIST ALLOCATION roll 48,49,155 
NAMELIST ITEMS roll 149,150 
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NAMELIST MPY DATA roll 57,160 
NAMELIST name 

roll 48 

table for 19 
NAMELIST NAMES roll 48,149 
NAMELIST tables 

definition 259 



description 
in Allocate 
in Exit 57 
listing of 



19 

12, U4, 47 



20,48 

position in object module 20 
NEST SCRIPT roll 

description 141 

in Unify 53 
NONSTD SCRIPT roll 141 



object module 

configuration of 17 

desci iption of 17 

general register usage 20 

listing of 20, 21, 54, 57 

writing of 4 9 
object-time library subprograms 212-258.10 
operation driver 

definition 259 

description 30 

formats of 185-211 
OPERATOR field 

definition 2 59 

description 30-32 
optimization 52,53,259 
option table 242.1 
ORDER AND PUNCH RLD ROLL routine 14,55,57 



Parse phase (IEYPAR) 

definition 2b0 

detailed description 36-42 

general description 12 

location in storage 15 

rolls used by 37 
PASS 1 OLOBAL SPROG ALLOCATE routine 

1 4 , 4 5 , 4 8 
phases 

allocate 12, 15,44-51 

components of 14 

Exit 13,15,55-57 

Gen 12,15,53-55 

Invocation 12,15,33-35 

Parse 12,15,36-44 

Unify 12,15,51-53 
plex 

definition 260 

description 25 
plus and below phony driver 40, 41 
pointer 

ADDRESS field 29 

definition 260 

description 29 

OPERATOR field 29 

TAG field 29 



Polish notation 

arithmetic and logical assignment 
statement 164 

arithmetic expressions 39 

arithmetic IF statement 165 

array references 163 

ASSIGN statement 164 

assigned GO TO statement 164 

BACKSPACE statement 171 

BLOCK DATA statement 166 

CALL statement 172 

computed GO TO statement 165 

CONTINUE statement 165 

DATA statement 166 

debug statements 172-173 

DEFINE FILE statement 170 

definition of 259 

direct-access statements 170 

DO statement 165 

END FILE statement 171 

END statement 166 

ENTRY statement 164 

Explicit specification statements 

FIND statement 170 

formats 16 3-173 

FUNCTION statement 171 

general 10 

in Gen 1 2, 5 3, S4 

in Parse 13, )6, 39 

input/output lists 167-168 

labeled statements lb3 

logical IF statement 164 

PAUSE and STOP statements 165 

PRINT statement 169 

PUNCH statement 169 

READ statement I67,lb8,169 

RETURN statement 164 

REWIND statement 171 

statement function 171 

SUBROUTINE statement 171 

unconditional GO TO statement 16 5 

WRITE statement 1 h8 , 1 69, 1 70 
POP instructions. 

ADD 130 

AFS 130 

AND 130 

APH 127 

ARK 127 

AR P 12 7 

ASK 127 

ASP 127 

BID 134 

BIM 1)4 

bin nt 

BOP 127 

CAR 128 

CLA 128 

CNT 128 

CPO 128 

cross reference list 139 

CRP 128 

CSA 131 

CSF 13 3 

definition 259 

detailed description 

DIM 130 

DIV 130 

EAD 128 
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EAW 


128 




ECW 


128 




EOP 


128 




ETA 


128 




FET 


128 




FLP 


128 




FRK 


128 




FRP 


128 




FTH 


128 




general description 
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IAD 


129 




IND 


135 




IOP 


129 




IOR 


130 




ITA 


129 




ITM 


129 




JAF 


133 




JAT 


133 




JOW 


133 




JPE 


133 




JRD 


133 




JSB 


133 




J UN 


133 




LCE 


129 




LCF 


129 




LCT 


129 




LGA 


131 




LGP 


129 




LLS 


130 




LRS 


131 




LSS 


129 




MOA 


131 




MOC 


129 




MON 


129 




MPY 


131 




NOG 


129 




NOZ 


129 




PGO 


130 




PGP 


130 




PLD 


130 




PNG 


130 




POC 


130 




POW 


134 




PSP 


131 




PST 


130 




QSA 


131 




QSF 


133 




REL 


134 




RSV 


134 




SAD 


131 




SBP 


131 




SBS 


131 




SCE 


132 




SCK 


132 




SFP 


132 




SLE 


132 




SNE 


132 




SNZ 


132 




SOP 


132 




SPM 


132 




SPT 


132 




SRA 


132 




SRD 


132 




STA 


132 




STM 


133 




SUB 


131 




SWT 


130 




TLY 


131 





139 

127-138 
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WOP 135 

W1P 135 

W2P 135 

W3P 135 

W4P 135 

XIT 133 

ZER 130 
POP interpreter 

definition 260 

description 136 

general 10 
POP jump table (POPTABLE) 

definition 260 

description 28,137 

location in storage 15 
POP language 

cross-reference list 

definition 260 

detailed description 

general description 

notation used 127 
POP SETUP routine 137 
POP subroutines 

assembler references to 137 

definition 260 

general 10 

location in storage 15 
POPADR register 

definition 260 

description 29 
POPPGB register 

definition 260 

description 29 
POPXIT register 

description 29 
PREP DMY DIMAND PRINT ERRORS routine 14, 45 
PREP EQUIV AND PRINT ERRORS routine 14,45 
PREP NAMELIST routine 14,45,48 
PRESS MEMORY 21,22,193 
PRINT A LINE routine 14 
PRINT AND READ SOURCE routine 14,37 
PRINT HEADING routine 14 

PRINT TOTAL PROG REQMTS MESS routine 14 
printmsg table 35-36 
PRNTHEAD routine 34 
PRNTMSG routine 34 

PROCESS DO LOOPS routine 14,45,46 
PROCESS LBL AND LOCAL SPROGS routine 

14,45,46 
PROCESS POLISH routine 14,39 
production of object code 

branches 175 

computed GO TO statement 175 

DEFINE FILE statement 179 

direct-access READ and WRITE statements 
179 

DO loops 175 

DO statement 175 

FIND statements 179 

FORMAT statements 180,181 

formatted arrays 177 

formatted list items 177 

functions 176 

input/output 177 

PAUSE statement 179 

READ and WRITE statements 177 

statement functions 176 

STOP statement 179 
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subroutines 176 

unformatted arrays 178 

unformatted READ and WRITE s+a*-**™* i ™*-~ 
178 
PROGRAM BREAK variable 45, 46, 47, 48, 49 
PROGRAM SCRIPT roll 

description 158 

in Parse 39 

in Unify 52 
program text 

definition 260 

description 20 

position in object module 17 
prologue 12,53,54 
PROLOGUE GEN routine 14,53,54 
pruning 

definition 260 

description 23 
pseudo instructions 10,127 
PUNCH ADCON ROLL routine 14,55,57 
PUNCH ADR CONST ROLL routine 14,55,56 
PUNCH BASE ROLL routine 14,55,56 
PUNCH BRANCH ROLL routine 14,55,56 
PUNCH CODE ROLL routine 14,55,56 
PUNCH END CARD routine 14,55,57 
PUNCH GLOBAL SPROG ROLL routine 14,55,57 
PUNCH NAMELIST MPY DATA routine 55,57 
PUNCH PARTIAL TXT CARD routine 55,56 
PUNCH SPROG ARG ROLL routine 14,55,56 
PUNCH TEMP AND CONST ROLL routine 14,55,56 
PUNCH USED LIBRARY ROLL routine 14,55,57 
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RLD cards 13, 56 

RLD roll 55,56,57,156 



quick link output 

quote 

definition 260 
description 27 
location in storage 
QBASE 27 

quote base (QBASE) 
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REASSIGN MEMORY 

recursion 

definition 
in compiler 

REG roll 146 

REGISTER IBCOM routine 

register usage 
by compiler 
by object module 

relative addressing 

releasing rolls 
definition 261 
in Allocate 45 
in Invocation 35 

reserve mark 

definition 261 
description 23 

RETURN register 
definition 261 
description 29 

RETURN statement 

Polish notation for 



14, 37 
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in IEYROL 53 

in Invocation 35 

location in storage 15 

use in allocating storage 22, 35 

use in finding address of variable, 30 

use in releasing storage 35 
roll control instructions 133 
roll controls 

general 21 
roll module (IEYROL) 

definition 261 

detailed description 53 

general description 13 

location in storage 15 
roll statistics 

BASE, BOTTOM, TOP 22 

location in storage 15 
roll storage area 

definition 261 

general description 21 
ROLLBR register 

definition 261 

description 29 
rolls 

ADCON 57,145 

ADR CONST 52, 56, 159 

AFTER POLISH 2 3,37-40,42,53,54,161 

allocating storage for 21, 22, 34 

ARRAY 2b,U7,14b 

ARRAY DIMENSION 150 

ARRAY PLEX 158 

52, 159 
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ARRAY REF 

AT 54,159 

BASE TABLE 

BCD 4 5 

BRANCH TABLE 47,56,150 

BYTE SCALAR 47,151 

CALL LBL 149 

CODE 22, 53, 54, t>b, 160 

COMMON ALLOCATION 47,156 

COMMON AREA 15 5 

COMMON DATA 152 

COMMON DATA TEMP 

COMMON NAME 152 

COMMON NAME TEMP 

COMPLEX CONST 143 

DATA SAVE 14 5 

DATA VAR 56, 154 

definition of 261 

detailed description 140-162 

DMY DIMENSION 14,46,147 

DO LOOPS OPEN 39,46,144 

DP COMPLEX CONST 143 

DP CONST 25,143 

ENTRY 4 6 

ENTRY NAMES 54,147 

EQUIV ALLOCATION 43,47,48,156 

EQUIVALENCE (EQU7V) 46,47,151 

EQUIVALENCE (EQUIV) HOLD 145 

EQUIVALENCE (EQUIV) TEMP 145 

EQUIVALENCE OFFSET 45,152 

ERROR 42,148 

ERROR CHAR 144 

ERROR LBL 148 

ERROR MESSAGE 144 
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ERROR SYMBOL 149 
ERROR TEMP 144 
EXIT 10, 15, 24, 38 # 53,161,259 
EXPLICIT 149 
FL AC 153 
FL CONST 14 3 
FORMAT 48,157 
formats 140-162 
FULL WORD SCALAR U7, 155 
FX AC 151 
FX CONST 14 3 
GENERAL ALLOCATION 160 
general description 10,21 
GLOBAL DMY U7, 49, 148 
GLOBAL SPROG 42,48,56,142 
HALF WORD SCALAR 47,152 
HEX CONST 154 
IMPLICIT 153 
IND VAR 37, 141 
INIT 49,145 
LBL 45,46,54,153 
LIB 140 

LITERAL CONST 143 
LITERAL TEMP 155 
LOCAL DMY 148 
LOCAL SPROG 45,46,149 
location in storage 15 
LOO P CONT ROL 52,156 
LOOP DATA 38,53,157 
LOOP SCRIPT 14 2 

NAMELIST ALLOCATION 48,49,155 
NAMELIST ITEMS 149,150 
NAMELIST MPY DATA 57,160 
NAMELIST NAMES 48,149 
NEST SCRIPT 53,141 
NONSTD SCRIPT 141 
POLISH 36-42,53,54 
PROGRAM SCRIPT 39,52,158 
pruning of 23 
REG 14b 

releasing of 35,45,260 
reserving of 23, 261 
RLD 55,56,57,156 
SCALAR 47,48,154 
SCRIPT 36,37,52,53,157 
size limitations 22 
SOURCE 37,38,140 
special 24 
SPROG ARG 56,147 
STD SCRIPT 144 
SUBCHK 49,160 
TEMP 144 

TEMP AND CONST 45,55,57,144 
TEMP DATA NAME 150 
TEMP NAME 36,14 3 
TEMP POLISH 151 
TEMP PNTR 15 3 
used by Allocate 44 
used by Exit 55 
used by Gen 53 
used by Parse 36 
used by Unify 52 
USED LIB FUNCTION 48,55,152 
WORK 10, 15, 24, 38-41, 53, 54, 161, 261 
rungs 

definition 261 
description 24 



save area 

assigning storage for 47 

definition 261 

position in object module 17 
SCALAR ALLOCATE routine 14,45,47 
SCALAR roll 47,48,154 
SCALAR routine 14 
scalar variable 

definition 261 

listing of 21 

position in object module 17 
scan arrow 

definition 261 

description 26 
scan control variables 26,27 
SCRIPT roll 

description 157 

in Parse 36, 37 

in Unify 52,53 
source module listing 

definition 261 

description 20, U2 

format of 42 
SOURCE option 36 
SOURCE roll 

description 140 

in Parse 37, 38 
special rolls 24 
specification statements 35 
SPROG ARG ALLOCATION routine 14,45 48 
SPROG ARG roll 56,147 ' 

STA FINAL routine 14,37,39 
STA GEN FINISH routine 14, 54, 55 
STA GEN routine 14,54,55 
STA INIT routine 14, 38 
STA LBL BOX 54 
STA RUN TABLE 54 
STA XLATE EXIT routine 38 
STA XLATE routine 14,37,38,39 
START ALLOCATION routine 14 
START COMPILER routine 14, 37 
START GEN routine 14,53 
START UNIFY routine 14, 52 
STATEMENT PROCESS routine 14,37,39 
status variable 2 3 
STD SCRIPT roll 144 
STOP statement 

Polish notation for 37 
storage map 

compiler 14 

definition 261 

description 21 

object module 17 

produced by Allocate 44,50 
SUBCHK roll 49, 160 
subprogram addresses 

position in object module 17 
subprogram argument lists 

position in object module 17, 51 
SUBSCRIPTS FAIL routine 42 
SYMBOL item 24, 261 
syntax error 42 
SYNTAX FAIL routine 38,42 
system names 11 
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tables 

base 17,47,56,259 

BASE, BOTTOM, and TOP 23,28 

branch 18,46,56 

global jump 28,137 

group stats 25,26 

NAMELIST 12,18,19, 20, 44, 48, 49, 57, 260 

POP jump 15,28,136,260 

printmsg 35 

ROLL ADR 15,22,28,34,53 

STA RUN 54 

unit assignment 239 
TAG field 

definition 261 

description 29-31 
TEMP AND CONST roll 

description 144 

in Allocate 45 

in Exit 55,57 
TEMP DATA NAME roll 150 
TEMP NAME roll 

description 143 

in Parse 38 
TEMP POLISH roll 151 
TEMP PNTR roll 153 
TEMP roll 144 
temporary storage and constants 

description 20 

position in object module 17 
TERMINATE PHASE routine 54,55 
termination of compiler 33,35 
TIMLDAT routine 3 5 
TOP variable 23 

definition 261 
TRACE option 54 

transmissive instructions 127-130 
TXT cards 

general 12 

produced by Allocate 44,49,51 

produced by Exit 55,56,57,58 
type statements 

allocation for 46 



Unify label list 196-198 
Unify phase (IEYUNF) 

definition 260 

detailed description 51-53 

general description 12 

location in storage 15 

rolls used by 52 
unit assignment table (IHCUATBL) 239 
unit blocks 240,242 
USED LIB FUNCTION roll 

description 15 2 

in allocation 48 

in Exit 55 
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ANSWER BOX 26, 38, 2 59 
AREA CODE 45,56,57,146 
BASE 23,259 
BOTTOM 23,259 
COMMON 21,46 
CRRNT CHAR 26, 38, 259 
CRRNT CHAR CNT 26,38,259 
EQUIVALENCE 18,21,44,45,48 
LAST CHAR CNT 26,38,260 
LAST SOURCE CHAR 38 
MPAC1 and MPAC2 26,260 
PROGRAM BREAK 45,46,47,48 
scalar 18,21,261 
scan control 26, 27 
status 23 
TOP 23.261 



WORK roll 

definition 261 

description 24,161 

general 10 

in Exit 57 

in Gen 54 

in IEYROL 53 

in Parse 39,40,41 

location in storage 15 
WRKADR register 

definition 261 

description 29 
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